DBGrid и ползунок

Form1.Caption:=Edit1.Text;

название строки DBGrid на которую кликнул чтоб выводилась в едит

edit1.text:=DBGrid1.Columns[0].Title.Caption;

//проверка датасета
Function NotEmptySet(inSet:TDataSet): boolean;
begin
  if not inSet.Active then Result:=false else
  Result := Not (inSet.Bof and inSet.eof);
end;
 
procedure Grid_auto_width(g: TDBGrid; aw_proc: array of integer);
var base_w, c, i : integer;
const autowidthX = 3; // погрешность
begin
  if NotEmptySet(g.DataSource.DataSet) then begin
    // назначение авто изменения размера
    base_w:=g.Width-35-autowidthX;
    if Length(aw_proc)=g.Columns.Count then begin  // by code
      c:=0;
      for i := 0 to Length(aw_proc)-1 do  c:=c+aw_proc[i];
      c:=Round(base_w/c);
      for i := 0 to g.Columns.Count-1 do g.Columns[i].Width:=c*aw_proc[i];
    end else begin
      c:=Round(base_w/g.Columns.Count);
      for i := 0 to g.Columns.Count-1 do g.Columns[i].Width:=c;
    end;
  end; // end if active
end;
 
<..>
 
Grid_auto_width(DBGrid1,[]); // все колонки имеют одинаковый размер
 
Grid_auto_width(DBGrid1,[1,3,1,4,1]); // размер колонок пропорционален, заданному массиву пропорций