Delphi-Quellcode:
type
TForm1 = class(TForm)
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
public
{ Public-Deklarationen }
end;
Wenn's protected bei dir nicht gibt, dann einfach einfügen.
Zur Not geht's auch im private-Bereich oder public-Bereich
Gerd