Timer zur Laufzeit erstellen und...

[Luckie]

Las gut sein Assarbad.

@silent:
So geht's:

Delphi-Quellcode:

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  ExtCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyTimer: TTimer;
begin
  MyTimer := TTimer.Create(self);
  MyTimer.Enabled := True;
  MyTimer.Interval := 1000;
  MyTimer.OnTimer := MyTimerEvent;
end;

procedure TForm1.MyTimerEvent(Sender: TObject);
begin
  Caption := TimeToStr(Time);
end;