Moin Stony2k,
du darfst beim Aufruf der Funktion nicht die Parameter hinschreiben, sondern Werte uebergeben
d.h. hier
Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
musst du eigentliche Werte uebergeben.
Greetz
alcaeus