[Amilman]

Попытался вывести записи из таблицы таким методом:

Код:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  with TForm4.Create(Application) do
    Show;
    Form4.Edit_name.Text:= DataModule1.ADOQuery2.FieldByName('Имя').AsString;
    Form4.MaskEdit4.Text:= DataModule1.ADOQuery6.FieldByName('Дата_приёма_на_работу').AsString;
end;

но при выборе записи после открытия формы вылетает ошибка.