Para eso tienes que pintar tú mismo las celdas. Te pongo un ejemplo:
Código Delphi
[-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with Sender as TStringGrid do
begin
InflateRect(Rect, -1, -1);
Canvas.FillRect(Rect);
InflateRect(Rect, -3, -3);
DrawText(Canvas.Handle, PAnsiChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect,
DT_CENTER or DT_VCENTER or DT_SINGLELINE); end;
end;
Saludos.