procedure Timer1OnTimer(Sender:TObject); begin Timer1.Enabled:=False; SomeWork(somedata); Timer1.Enabled:=True; end;