1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

 procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

var
acol,arow:integer;
Bitmap1:TBitmap;
spielfeld:string;
sp :array[1..2]of integer;
begin
Bitmap1:= TBitmap.Create;

begin


stringgrid1.MouseToCell(x,y,acol,arow);
stringgrid1.cells[acol,arow]:=spielfeld;
 if steine.Checked=true then begin
sp[1]:=(arow);
 sp[2]:=(acol);
 bitmap1.loadfromfile('fläche.bmp');
spielfeld:=bitmap1;

 end;
end;

end;