StringGrid Frage

[Schuby]

Ich habs, endlich bleiben die Zellen nicht mehr blau,
auch nicht beim verlassen einer Zelle

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const
  SelectedColor = clBtnFace;
var
  Grid: TStringGrid;
  s: string;
begin
  Grid := Sender as TStringGrid;
  s := Grid.Cells[ACol, ARow];
  if (gdSelected in State) and not (gdFocused in State) then
  begin
    Grid.Canvas.Brush.Color := Grid.Color;
    Grid.Canvas.FillRect(Rect);
    InflateRect(Rect, -2, -2);
    Grid.Canvas.Font.Color := Grid.Font.Color;
    DrawText(Grid.Canvas.Handle, PChar(s), Length(s), Rect, DT_LEFT);
  end;
end;

Danke für eure Hilfe

mfg Schuby