[angvelem]

Для чисел с плавающей хапятой нужно проверять

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
  ....
  if t >= 1 then
  begin
    ....
    // Необходимые операции
    ....
  end; 
end;