1:
2:

if wettkampf.stringgrid1.Cells[2,2] <> '' then
   canvas.font.color := clred;					

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

procedure TForm1.Stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s:string;
begin
  with (sender as Tstringgrid) do
    begin
      //Zellhintergrund  (jede zweite Zeile blau)
      if (arow mod 2) = 0 then canvas.brush.color:=clblue
                          else canvas.brush.color:=clwhite;
      if gdfixed in state then canvas.brush.color:=fixedcolor;
      canvas.fillrect(rect);

       //bestimmte Spalte rot darstellen
       if acol=2 then canvas.font.color:=clred
                     else  canvas.font.color:=clblack

      canvas.textout(rect.left+2,rect.top+2,s);
    end;
end;