Плавная перерисовка компанентов на форме, StringGrid

[Sicher]

Всем привет!!! Столкнулся с такой проблемой.
Имеется stringgrid на форме, у него установленно значение align, так как уго надо двигать по форме и изменять значения ширины, также в событии DrawCell прописана процедура подгонки ширины и высоты ячейки.
код ниже. так вот, очень неприятно выглядит перерисовка при изменении размера этого компанента, и хотелось бы от этого как нибудь избавиться. подскажите хотя бы направление в котором надо копать, буду признателен)))

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow:
  Integer;
  Rect: TRect; State: TGridDrawState);
var
  Format: Word;
  C: array[0..255] of Char;
  x, y, w,h,r: integer;
  s: string;
  MaxWidth,MaxHeight: integer;
begin
    with StringGrid1 do
    begin
      {for x := 0 to ColCount - 1 do
      begin }
        MaxWidth := 0;
        for y :=0  to RowCount - 1 do
        begin
         w := Canvas.TextWidth(Cells[1,y]);
         if w > MaxWidth then
            MaxWidth := w;
        //RowHeights[y]:= Canvas.TextHeight(Cells[1,y])*2+5;
        end;
        StringGrid1.ColWidths[1] := MaxWidth + 5;

        for y :=0  to RowCount - 1 do
        begin
          C := '';
  Format := DT_LEFT or DT_WORDBREAK;
  (Sender as TStringGrid).Canvas.FillRect(Rect);
  StrPCopy(C, (Sender as TStringGrid).Cells[ACol, ARow]);
  if c <> '' then //если есть значения
  begin
    r := WinProcs.DrawText((Sender as TStringGrid).Canvas.Handle, C,
      StrLen(C), Rect, Format);

    if r >= (Sender as TStringGrid).RowHeights[Arow] then
      //если высота колонки меньше
      (Sender as TStringGrid).RowHeights[Arow] := r;
      {else
      (Sender as TStringGrid).RowHeights[Arow] := r; }

  end;
        if StringGrid1.ColWidths[1]<> w then
        begin
          StringGrid1.ColWidths[0]:=StringGrid1.ClientWidth-StringGrid1.ColWidths[1]-3;
          w:=StringGrid1.ColWidths[1];
        end;
    end;

    end;
    r:=0;
    with StringGrid1 do
    begin
    for x:= 0 to RowCount-1 do
    r:=r+RowHeights[x];
    end;
    StringGrid1.ClientHeight := r+StringGrid1.RowCount+1;
end;

[maxsept]

я так понял оно мерехтит?
если да то

TControl(StringGrid1).parent.doubleBuffered:=true;

[Sicher]

а втыкать в какое место эту строку? и как она работает? я щас оооочень туго соображаю((((

[maxsept]

один раз ,можна в FormCreate