Vier gewinnt Stringgrid

[mexman]

Delphi-Quellcode:

procedure Tspiel_menu.gitterDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var m,n:integer;
begin
for acol:=1 to 7 do
for arow:=1 to 6 do
  if spiel_menu.gitter.Cells[m,n]='R' then
    begin
    canvas.brush.color:=clred;
    canvas.FillRect(rect);
    end
  else
  if spiel_menu.gitter.cells[m,n]='G' then
    begin
    canvas.Brush.color:=clyellow;
    canvas.fillrect(rect);
    end
  else
    begin
    canvas.Brush.color:=clwhite;
    canvas.FillRect(rect);
    end;
end;

Ich möchte, dass Zellen entsprechend ihres Inhaltes gefärbt werden.
Wenn ich das Programm so starte, färbt sich der Hintergrund (aber nicht das Gitter) weiß.
Kann mir bitte jmd. sagen, was falsch ist?

dankeschön