1:
2:
3:
4:

  TCellData = class
    color: TColor;
    index: Integer;
  end;                    

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

procedure TfrmMain.FormCreate(Sender: TObject);
var
  I: Integer;
  e: Integer;
  grdRect: TGridRect;
begin
// jetzt folgt erstmal der Teil, wo diese blaue Zelle entfernt wird ...
  with grdRect do begin
    Top := -1;
    Left := -1;
    Right := -1;
    Bottom := -1;
  end;
  grdGrid.Selection := grdRect;

// und hier geht's los mit der Index-Zuweisung
  for I := 0 to grdGrid.RowCount do
    for e := 0 to grdGrid.ColCount do
    begin
      grdGrid.Objects[I, e] := TCellData.Create;
      TCellData(grdGrid.Objects[I, e]).index := 0;
    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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

procedure TfrmMain.right(var sTerm: string);
var
  I, k: Integer;
begin
// erstmal wird die Startzelle festgelegt und so ...
  bStop_process := false;
  repeat
    Application.ProcessMessages;
    begin
      iCol_StartingValue := random(grdGrid.ColCount - length(sTerm));
      iRow_StartingValue := random(grdGrid.RowCount);
      iCol := iCol_StartingValue;
      bMatch := True;
      bOutput := false;
// dann kommt die Überpfüfung, ob der Begriff überhaupt da hin passt
      for k := 0 to length(sTerm) - 1 do
        if (grdGrid.Cells[iCol + k, iRow_StartingValue] <> '') and
          (grdGrid.Cells[iCol + k, iRow_StartingValue] <> sTerm[k + 1]) then
          bMatch := false;
// und wenn das der Fall ist, wird der Reihe nach jeder Buchstabe hinzugefügt
      for I := 1 to length(sTerm) do
      begin
        if bMatch = True then
        begin
          grdGrid.Cells[iCol, iRow_StartingValue] := sTerm[I];
          bOutput := True;
          iCol := iCol + 1; // Inc(iCol)
// und hier hab ich versucht, den Index auf 1 zu erhöhen, keine Ahnung, warum ich die Form nochmal kreieren musste, aber ohne das kam immer eine Fehlermeldung, wenn ich die Begriffe ausgeben wollte
          grdGrid.Objects[iCol + (I - 1),
            iRow_StartingValue] := TCellData.Create;
          TCellData(grdGrid.Objects[iCol + (I - 1), iRow_StartingValue])
            .index := 1;
          end;
      end;
// jetzt folgt nur noch Kleinkram, der hierfür irrelevant ist
      Screen.Cursor := crHourglass;
    end;
  until (bOutput = True) or (bStop_process = True);
  Screen.Cursor := crDefault;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TfrmMain.grdGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if Assigned(grdGrid.Objects[ACol, ARow]) then
    exit;
  if gdFocused in State then
  begin
    grdGrid.Canvas.Brush.color := clRed;
    grdGrid.Canvas.FillRect(Rect);
  end;
end;                    

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

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s : string;
    sg : TStringGrid;
begin
  sg := TStringGrid(sender);
  s :=  sg.Cells[Acol,Arow];

  if not loesung_zeigen then exit;
//  if ((s = '') or (s=' ')) then exit; // optional?


  // Annahme: Index 1 = OK; Index 0 = nicht ok
  if TCellData(sg.Objects[acol,arow]).index = 1 then
   sg.Canvas.Brush.color := clLime
  else
    sg.Canvas.Brush.color := clRed;

  sg.Canvas.FillRect(rect);
  // Übermalten Text wieder zeichnen
  DrawText(sg.Canvas.Handle, PChar(s), Length(s), Rect, DT_LEFT)   ;
end;                    

1:
2:
3:

TCellData = class 
  correct_value : string;
end;                    

1:

if s = TCellData(sg.Objects[acol,arow]).correct_value then                    

1:

DrawText(sg.Canvas.Handle, PChar(s), Length(s), Rect, DT_LEFT);                    

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

procedure TfrmMain.grdGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if not loesung_zeigen then
    Exit;
  if TCellData(grdGrid.Objects[ACol, ARow]).correct_value = True then
    grdGrid.Canvas.Brush.color := clLime
  else
    grdGrid.Canvas.Brush.color := clRed;
  grdGrid.Canvas.FillRect(Rect);
  DrawText(grdGrid.Canvas.Handle, pChar(), Length(), Rect, DT_LEFT)
end;


procedure TfrmMain.btnSolutionMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    loesung_zeigen := True;
    grdGrid.Invalidate;
  end;
end;