Incompatible types: 'Integer' and 'Extended' (??????)

[Nikolas]

Sicher, dass du da falsche Seitenlängen bekommst? Ich hab's grad getestet und da siehts so aus, wie man's erwarten könnte.

Delphi-Quellcode:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
q: integer;
begin
q:=spinedit1.Value;
image1.Canvas.Rectangle(x,y,x+q,y+q);
end;