1:
2:
3:
4:

procedure TForm2.Label1Click(Sender: TObject);
begin
onklick:=1;
end;					

1:

Zahl[n].OnClick:=TForm2.Label1Click;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
Zahl: Array[1..150] of TLabel;
...
Zahl[n]:= Tlabel.create(Form2);
Zahl[n].Top := Punkt[n].Top + 10;
Zahl[n].Left := Punkt[n].Left + 10;
Zahl[n].Caption := s;
Zahl[n].Font.Name:='Arial';
Zahl[n].Transparent:=True;
Zahl[n].Parent := Form2					

1:

Inkompatible Typen:'TNotifyEvent' und 'Procedure'					

1:

  Zahl[n].OnClick := Form2.Label1Click;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

type
  TZeit = class(TTimer)
    procedure DoTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TZeit.DoTimer(Sender: TObject);
begin
  // tu was
end;

var
  Timer1: TZeit;
begin
  Timer1 := TZeit.Create(nil);
  Timer1.Interval := 1000;
  Timer1.OnTimer := Timer1.DoTimer;
  Timer1.Enabled := True;
end.