Array aus Labeln mit Events

[wovo]

Dank für die schnellen Antworten!

Da ich nicht sehr firm bin in Delphi (man merkt es),
habe ich mich bestimmt unklar ausgedrückt

Die Lables in dem Array sollen in der Tat zur Laufzeit erzeugt werden.
Die Frage nach click ist verständlich. Ursprungscode war:

Code:

procedure TForm1.Label10Click(Sender: TObject);
begin
 if click = 3 then label10.color := clRed;
 {bei weiteren Clicks wird zyklisch eine andere Farbe angezeigt}

Bzgl. LLabel.OnClick := LabelsClick; // <- Event zuweisen
muss ich noch an der Umsetzung in mein Programm arbeiten.
Die Anweisung

Code:

 protected
    procedure LabelsClick( Sender : TObject );

erzeugt bei mir die Fehlermeldung

Code:

[Error] Unit1.pas(33): Unsatisfied forward or external declaration: 'TForm1.LabelsClick'

Aber ich arbeite weiter daran.
Gruß wovo