[Amin_Mansouri]

سلام
سوالهاتون هم پیگیری میکنید ؟ (چون تایپک قبلی سورس ها دانلود نکرده بودید )
برای تفاوت بین تاریخ و ساعت روشهای زیاده داری شما باید از یونیت DateUtils استفاده کنید.
توابع زیادی برای کار کردن با مقایسه کردن فاصله بین 2 تاریخ مثل روز ساعت و ... میدهید یه نمونه کد میزارم :

کد:

procedure TForm1.FormCreate(Sender: TObject);
var
TimeNow, TimeThen: TDateTime;
//parsicoders.com
begin
TimeThen := StrToTime('03:00:00');
TimeNow := StrToTime('01:00:00');
ShowMessage(IntToStr(MinutesBetween(TimeNow,TimeThen)));
end;

end.

برای اطلاعات بیشتر :

کد:

http://www.google.com/search?client=opera&rls=en&q=CompareDate+delphi&sourceid=opera&ie=utf-8&oe=utf-8&channel=suggest