Ereigniss zur Laufzeit zuweisen ?

[Bobator]

Delphi-Quellcode:

procedure ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
// Tue Irgendwas
end;

procedure zuweisen;
begin
  Image1.OnMouseDown:=ImageMouseDown;
end;

war es das was du meintest?