XX min Timer mit nachfolgender Aktion

[fLaSh11]

Delphi-Quellcode:

var
i:Integer

//...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
if i=180 then ShowMessage('3 min vorbei!');
end;

//Intervall von Timer1=1000

[edit]bei if i=... die Minuten*60 reinschreiben [/edit]