Ich glaub ich bin fündig geworden.
Nachdem ich auch vor dem ClientWidth und ClientHeight das "Form1." weggenommen habe, trat ein Fehler mehr auf.
Also:
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var l, r:integer;
begin
l := x div 70; //Breite der einzelnen Felder 70
r := y div 60; //Länge der einzelnen Felder 60
Edit1.Text := IntToStr(r);
Edit2.Text := IntToStr(l);
if Feld[r,l] = 0 then
begin
Feld[r,l] := 1;
Canvas.Brush.Color := clred;
Canvas.Ellipse( r*(ClientWidth div 7) ,
l*(ClientHeight div 6) ,
(r+1)*(ClientWidth div 7)-5 ,
(l+1)*(ClientHeight div 6)-5);
end;
end;
Der Quelltext funktioniert zwar noch nicht einwandtfrei - aber das restliche werde ich wohl durch Überlegungen und anderes lösen können.
Ich danke euch für eure Hilfe.
Auf Bald ^^