das gehört da nicht rein:
Delphi-Quellcode:
x:=stringgrid1.cells[1,nr];
....
wenn es Sinn machen würde müsstest Du den String auch noch in einen Integer umwandeln (StrToInt)
Delphi-Quellcode:
3:
with form1.image3.canvas do
begin
// folgende Zeile hat hier nichts verloren ....
quadratmalen(3,round(x-(spinedit2.value/2)),round(y-(spinedit2.value/2)),spinedit1.value,clred); // Quadratmalen mittels zeichnen der 4 Linien - klappt nicht!
//pen.color:=clred;
pen.color:=farbe;
und statt spinedit2.value sollst Du nach Vorgabe _kantenlaenge verwenden
Die Prozedur gehört in die Ecke wo Du AddFound aufrufst, mit
quadratmalen(3,j,i,SpinEdit2.Value,clRed);
Ihr sollt ja den Sinn und die Funktion von Prozeduren verstehen lernen ....