Zukünftig bitte die Delphi-Tags nutzen, dann sieht der Code deutlich übersichtlicher aus.
Ich habe ganz schnell was zusammengetippt:
Delphi-Quellcode:
// Variable für die neue Zeit
Plus_Fifteen_Mins: TDateTime;
[...]
// Direkt vor dem Starten des Timers musst du natprlich den Wert zuweisen:
Plus_Fifteen_Mins := now + StrToTime('00:15:00');
Delphi-Quellcode:
// Fkt zur Berechnung der Zeitdifferenz
function Time_Diff(Old_Date, New_Date: TDateTime): string;
var
h, m, s, n: Word;
begin
Old_Date := New_Date - Old_Date;
DecodeTime(Old_Date, h, m, s, n);
Result := Format('%0.2d', [m]) + ':' +
Format('%0.2d', [s]);
end;
Delphi-Quellcode:
// Aufruf/Ausgabe
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := Time_Diff(now, Plus_Fifteen_Mins);
if Caption = '00:00' then
begin
Timer1.Enabled := false;
ShowMessage('Und nun?');
end;
end;