سلام.
تایمر تا زمانی که کارتون در پروسیجر جاری تموم نشده باشه فایر نمی شه.
یعنی اگر تایمر شما 5 ثانیه باشه و تو یه لوپ دارید کار می کنید که 30 ثانیه طول می کشه اون تایمر در ثانیه 5 یهو ران نمی شه و صبر می کنه کار شما تموم بشه.
در مثال زیر مقدار تگ برابر یک می شه اون هم بعد از 30 ثانیه
procedure TForm1.FormCreate(Sender: TObject);
begin
tag := 0;
Timer1.Enabled := true;
sleep(30000);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
tag := tag + 1;
Timer1.Enabled := true;
end;