Hilfe bei der OnMouseMove-Procedure

[Hazardos]

Hallo...
ich wollte eigentlich nur 100 labels mittels schleife erzeugen (die solln erstmal untereinander angeordnet sein, wird aber noch geändert).
Das habe ich auch geschafft, nur möchte ich jetzt auch noch eine onmousemove- und eine onklick-procedure für die erzeugten Komponenten schreiben. Daran bin ich gescheitert und bitte um Hilfe!!

Die Komponenten habe ich auf folgende Art und Weise erstellt :

Delphi-Quellcode:

type
   labels = array [0..100] of tlabel;
var Strings : labels;
 
procedure TForm1.FormCreate(Sender: TObject);
var i :integer;
begin
i:=1;
while (i<101) do begin
Strings[i] := tlabel.Create(self);
strings[i].Parent := self;
strings[i].Caption := IntToStr(i);
strings[i].top := i*strings[i].Height;
inc (i);
end;end;

end.

So. Eigentlich möchte ich nur wissen, wie man Ereignisse für zur Laufzeit erstellte Komponenten einfügt!

Schonmal im Vorraus Danke!!