Code:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s: string;
begin
// Text der Zelle holen
s:=StringGrid1.Cells[ACol,ARow]
StringGrid1.Canvas.FillRect(Rect); // Zellfarbe zeichnen
DrawText(StringGrid1.Canvas.Handle, PChar(s), Length(s), Rect, DT_SINGLELINE or DT_Center or DT_VCENTER); // Text zentriert zeichnen
...........
...........
..........
DT_CENTER zentriert horizontal, DT_VCENTER zentriert vertikal.
Gruß,Bernd