Zeit Zähler Min und Sek

[vincent]

Delphi-Quellcode:

Ja, mit Button hab ich hingekriegt, aber zählt nicht.
Wo mache ich Fehler?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
// 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;


procedure TForm1.Button1Click(Sender: TObject);
var
// Variable für die neue Zeit
Plus_Fifteen_Mins: TDateTime;

begin
// Direkt vor dem Starten des Timers musst du natprlich den Wert zuweisen:
Plus_Fifteen_Mins := now + StrToTime('00:15:00');

label1.Caption := Time_Diff(now, Plus_Fifteen_Mins);
  if label1.Caption = '00:00' then
  begin
    Timer1.Enabled := true;
    ShowMessage('Und nun?');

end;
end;
end.