Schachfeld mit 2 Figuren (Läufer, Turm)

[Roflto]

So, ich muss/soll ein Schachfeld programnmieren, auf dem 2 Figuren (Turm & Läufer) beliebig stehen. Per Tastendruck wird das Spielfeld mit 2 Figuren erzeugt. Sie sollen Kreise in 2 verschiedenen Farben sein. Per Mausklick soll man sie auswählen können und dann auf ein andres Feld klicken und das Programm erkennt, ob der Zug gültig für diese Figur ist (dann dorthin verschieben), wenn nicht showmessage ('Flascher Zug')

Bin nicht weit gekommen, hänge gerade...

Delphi-Quellcode:

var xx, yy, dx, dy : integer;
var farbe: array [1..8,1..8] of TColor;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var i,j, x1, y1, x2, y2, x3, x4, y3, y4, n :integer;
begin
xx:=10;
yy:=10;
dx:=(Form1.ClientHeight-20) div 8;     //Breite der Kästchen
dy:=dx;                                //Höhe der Kästchen
canvas.Pen.color := clblack;
  for i:=0 to 8 do begin               //Schachfeld 8x8 zeichnen
    canvas.MoveTo(xx+(dx*i),yy);
    canvas.lineto(xx+(dx*i),(dy*8)+10);
    canvas.MoveTo(xx,yy+(dy*i));
    canvas.lineto((dx*8)+10,yy+(dy*i));
  end;

x1 := random(8); y1 := random(8);
x2 := x1+1; y2 := y1+1;
x3 := random(8); y3 := random(8);
x4 := x3+1; y4 := y3+1;
farbe[x1,y1]:=clblue;
farbe[x3,y3]:=clred;
   for i:= 0 to 8 do begin
    for j:= 0 to 8 do begin
      if farbe[i,j] <> clblack then begin
        canvas.brush.color:=farbe[x1,y1];
        canvas.Ellipse(xx+(dx*x1),yy+(dy*y1),xx+(dx*x2),yy+(dy*y2));
        canvas.brush.color:=farbe[x3,y3];
        canvas.Ellipse(xx+(dx*x3),yy+(dy*y3),xx+(dx*x4),yy+(dy*y4));
      end;
     end;
    end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Form1.Refresh;           //Bild löschen wenn Größenänderung
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Showmessage('Bitte eine beliebige Taste zum Starten drücken!');
end;


end.