procedure TForm13.FormCreate(Sender: TObject);
begin
  DBGrid1.Columns[0].Width:=180;
end;