var 
  FontColor: TColor = clYellow; 
  BrushColor: TColor = clNavy; 
 
type 
  TStringGridX = class(TStringGrid) 
  public 
    property InplaceEditor; 
  end; 
  TInplaceEditX = class(TInplaceEdit) 
  public 
    property Color; 
  end; 
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 
begin 
  with TStringGrid(Sender) do begin 
    if (ARow >= FixedRows) and (ACol >= FixedCols) then 
      with Canvas do begin 
        brush.color := BrushColor; 
        fillrect(Rect); 
        font.color := FontColor; 
        TextRect(Rect, Rect.left + 2, Rect.top + 2, cells[ACol, ARow]); 
      end; 
  end; 
end; 
 
procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, 
  ARow: Integer; var Value: string); 
begin 
  TInplaceEditX(TStringGridX(Sender).InplaceEditor).Color := BrushColor; 
  Font.Color := FontColor; 
end;