لمن لديه حل لمشكلة التعامل مع حقل من نوع time و حقل Date

السلام عليكم
كيف يمكنني إظهار محتوى الحقل في QuickRep فارغاً
بالنسبة للتاريخ فهو عندما يكون الحقل فارغ يظهر في QRLabel1
31/12/1899
فوضعت له الكود الذي يحمل اللون الأحمر حتى يظهر مكانه فارغ في QRLabel1
ونجحت العملية
وبالنسبة للساعة فحاولت بكل الطرق التي خطرت لي على بالي ولم اجد لها حل
فماذا يجب علي فعله لحقل الساعة حتى لا يطهر في QRLabel2 بهذا الشكل 00:00
أنظر إلى الكود

procedure TForm10.DetailBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var d1,h1:TDateTime;
begin
with DM_1 do begin
Table1.First;
while not Table1.Eof do begin
if (Table1NU.Value=1) then h1:=Table1DT_DEP.Value;
if (Table1NU.value=1) then d1:=Table1HR_DEP.Value
لظهور QRLabel1
المتعلقة بحقل التاريخ فارغة في حالة ما إذا كان الحقل فارغ
وبدلا من أن يخرج لي (31/12/1899) يظهر الفراغ


QRLabel1.Caption:=formatDateTime('yyyy/mm/dd',h1);
if h1=00 then QRLabel1.Caption:='';

لظهور QRLabel2
المتعلقة بحقل الساعة فارغة بدلاً من ان تظهر لي بشكل 00:00
لقد نجحت العملية لكن المشكلة في حالة ما إذا كان الحقل غير فارغ ويحمل قيمة 00:00
في هذه الحالة يظهر QRLabel2 فارغ ومن المفروض في هذه الحالة لا بد من ظهور القيمة 00:00
وضعت هذا الكود



QRLabel2.Caption:=formatDateTime('HH:MM',d1);
if d1=00 then QRLabel2.Caption:='';

Table1.Next;
End;
End;
End;