Видимо вам нужно вот такое:
Код:
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;