[Страдалецъ]

Видимо вам нужно вот такое:

Код:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var W,i: Integer;
    Grid: TDBGrid;
begin
 Grid := TDBGrid(Sender);
 if Column = Grid.Columns[Grid.Columns.Count - 1]
 then begin
      W := Grid.Width;
      for i := 0 to Grid.Columns.Count - 2
      do Dec(W, Grid.Columns[i].Width);
      if dgIndicator in Grid.Options
      then Column.Width := W - 19 //Это константные значения для стандартной схемы Windows,
      else Column.Width := W - 7; //в другой схеме могут работать неверно.
      end;
end;