>>98
TTimer使え
Timer1.Interval := 3600 * 1000;

>>99
dt: TDateTime;