Timer nur in einer Unit zur Laufzeit erzeugen ??

[hm988]

also der Komplette Source

Delphi-Quellcode:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TimerEvent(Sender: TObject);
begin
  form1.Caption := TimeToStr(Now);
end;


procedure Timer;
var Timer : TTimer;
begin
  Timer:=TTimer.Create(nil);
  Timer.OnTimer:=TimerEvent;//hier muss eine procedure in TNotify-Form stehen (z.B. Timer1Timer(Sender: TObject);)
  Timer.Interval:=1000;
  Timer.Enabled:=true;
end;

end.

irgendwie hab ich damit ein Prob, bitte kukt mal nach (für ganz dumme wie mich )

Danke