procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   edit1.text:=dbgrid1.Fields[0].AsString;
end;