procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
with Column.Field.DataSet do
if active then
begin
edit1.Text:=fields[0].AsString;
edit2.text:=fields[1].asstring;
edit3.Text:=fields[2].AsString;
edit4.Text:=fields[3].AsString;
end;
end;