Genau das hatte ich mir auch gedacht.
Allerdings bekomme ich denselben Fehler, wenn ich alles rausstreiche außer "Form1.Canvas.Brush.Color := clred;"
Also quasi:
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.Canvas.Brush.Color := clred;
end;
Dort bekomme ich haargenau die selbe Fehlermeldung.