Stringgrid Justowanie

Witam :)
Czy ktoś może wie jak wyjustować wybraną kolumne w StringGrid do prawej?

OwnerDraw - musisz sam text rysować

Napisałem taką funkcję:

function WyrownajKolumnySG_Srodek(SGrid : TStringGrid; nr_kol : Byte; tekst : String) : String;
var
  szerokosc : LongWord;
begin
  szerokosc := (SGrid.ColWidths[nr_kol] -SGrid.Canvas.TextWidth(tekst)) div 2;
  Result := StringOfChar(' ', (szerokosc div SGrid.Canvas.TextWidth(' '))) +tekst;
end;

function WyrownajKolumnySG_Prawa(SGrid : TStringGrid; nr_kol : Byte; tekst : String) : String;
var
  szerokosc : LongWord;
begin
  szerokosc := SGrid.ColWidths[nr_kol] -SGrid.Canvas.TextWidth(tekst);
  Result := StringOfChar(' ', (szerokosc div SGrid.Canvas.TextWidth(' ')) -(SGrid.Canvas.TextWidth(' ') div 2)) +tekst;
end;

Parametry funkcji kolejno to: (StringGrid, nr_kolumny, tekst_justowany)
Może się komuś przyda.