Stringgird cell größe ändern?

[gandime]

mir ist gerade die idee gekommen es über die owndraw funktion zu machen, da ich ja sonst immer extra auslesen müsste wo die celle ist soweit ich das sehe aber es klappt nicht so ganz:

Delphi-Quellcode:

procedure Tfrm_rechnung.sg_rDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ACol=4 then
  begin
    Rect.BottomRight.X:=Rect.BottomRight.X+200;
  end;
end;

warum?