TMS Component pack - AdvStringGrid

Zdravím.
Takto zarovnám ve 4 sloupci text k pravenu okraj.

procedure Tzarizeni1.AdvStringGridGetAlignment(Sender: TObject; ARow,
ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
case ACol of
4: HAlign:=taRightJustify;
end;
end;

Nechci ho však nit připlácly ulpění k pravé mřížce.
Dá se to nějak vyřešit?