Timer mit delay

[Matze]

Ganz einfach so:

Delphi-Quellcode:

var
  Form1: TForm1;
  CounterVar: Integer = 0; // <= wichtig, initialisieren!

implementation

{$R *.DFM} 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(CounterVar);

  // dein normaler Code

  if CounterVar = 2) then
  begin
    // dein verzögerter Code
    CounterVar := 0;
  end;
end;