[deltas]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
...
...
...
if Min3=10 then begin ... end;
...
...