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.StringGrid2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  ACol, ARow : Integer;
begin
  StringGrid2.MouseToCell(x,y,ACol,ARow);
  if
    StringGrid2.Cells[ACol, ARow ] = 'X' then    //Prüft ob in Zelle ein X vorhanden ist
    begin
      StringGrid2.Cells[ACol,ARow]:='O';         //Wenn ein X vorhanden, dann Getroffen, ein O wird gesetz
      Label2.Caption:='Getroffen';
      StringGrid2.Canvas.Brush.Color:= clred;
  end;
  if
    StringGrid2.Cells[ACol, ARow ] = '=' then    //Prüft ob in Zelle ein = voranden ist
    begin
      Label2.Caption:='Nochmal';
    end;
  If
    StringGrid2.Cells[ACol, ARow ] = '' then     //Prüft ob in der Zelle nichts vorhanden ist
    begin
      StringGrid2.Cells[ACol,ARow]:='=';         //Wenn nichts vorhanden, dann nicht getroffen, ein = wird gesetzt
      Label2.Caption:='Nicht getroffen';
      computerschiesst();
    end;
end;                    

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:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with (Sender as TStringGrid) do
  begin
    if BP[ARow] then
    begin
      Canvas.Brush.Color:=clRed;
      Canvas.Font.Color:=clWhite;
      if Selection.Top = ARow then Canvas.Brush.Color:=clBlue;
    end else
    begin
      Canvas.Brush.Color:=clWhite;
      Canvas.Font.Color:=clBlack;
      if Selection.Top = ARow then
      begin
        Canvas.Brush.Color:=clHighlight;
        Canvas.Font.Color:=clWhite;
      end;
    end;
    if ACol = 1 then Canvas.Font.Style:=[fsBold] else Canvas.Font.Style:=[];
    Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
    Canvas.FrameRect(Rect);
  end;
end;                    

1:
2:

TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
         Rect: TRect; State: TGridDrawState);