Also du gibst den start vor...
start := 15...
dann stellst du den Timer auf eine Sekunde ein...
Immer wenn der Timer ausgelöst wird soll er Start -1 machen.
Wenn Start = 0 dann Showmessage('Boom');
// edit
Delphi-Quellcode:
// Start private deklarieren...
procedure TFMailverwaltung.Button1Click(Sender: TObject);
begin
start := 15;
timer2.Enabled:= true;
end;
procedure TFMailverwaltung.Timer2Timer(Sender: TObject);
begin
start := start -1;
if start = 0 then begin showmessage('boom'); timer2.Enabled := false; end;
end;