Aahh!
Delphi-Quellcode:
constructor TGeoForm.Create(AOwner: TComponent);
begin
FFuellfarbe:=clWhite;
FRandfarbe:=clBlack;
Top:=0;
Left:=0;
Width:=100;
Height:=50;
OnMouseDown := MyMouseDown;
OnMouseMove := MyMouseMove;
OnMouseUp := MyMouseUp ;
end;
Hier fehlt das inherited.
Das Control wird nicht korrekt erzeugt.