ایشون زمان ساعت رو گفتن ---- Timer از عدد استفاده میکنه نه ساعت .
یخورده فکر کنی، ربطشون رو متوجه میشی...
یه متغیر integer به اسم Counter در فرم تعریف کن و از کد زیر (یا شبیه اون) استفاده کن:
procedure TForm1.FormCreate(Sender: TObject);
begin
Counter := 60 * 10;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Counter = 0 then
begin
Timer1.Enabled := False;
{This area of code is executed, after time expiration.
...
}
Exit;
end;
Dec(Counter);
Label1.Caption := Format('%d : %d',[Counter Div 60,Counter mod 60]);
end;