Problem beim färben von Stringgrid

[SimStar001]

hallo ich habe hier folgenden code:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if StringGrid1.cells[acol,arow] = 'N' then
    begin
    StringGrid1.Canvas.Brush.Color := clwhite;

    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.font.Color := clred;
    StringGrid1.canvas.TextOut(acol,arow, StringGrid1.cells[Acol,Arow]);
    end;
end;

wenn das grid gezeichet wird sind zwar die fleder rot, aber der TEXT steht in der linken oberen ecke des grids! wieso!!????