rechtsbündiges Stringgrid

[Hansa]

Hi,

ich bin dabei ein Stringgrid, besser gesagt den Inhalt der Zellen, rechtsbündig anzuzeigen. Und zwar mit folgendem Code:

Delphi-Quellcode:

procedure sgRechts (sg: TStringGrid; Rect: TRect; ACol, ARow:Integer);
var st: String;
begin
  sg.Canvas.FillRect(Rect);
  st := sg.Cells[ACol,ARow];
  DrawText(sg.Canvas.Handle, PChar(st), StrLen(PChar(st)),Rect,DT_RIGHT);
end;

Horizontal gesehen ist es auch rechts, aber sobald ich die Eingabe beendet wandert der Text nicht nur nach rechts, sondern auch nach oben. Er ist also vertikal nicht mehr zentriert. Woran kann das liegen ?