Что не так с ADO

uses
  Windows, Classes, Types, ......., UDM;

DM := TDM.Create(Self);

dm.Query1.блаблабла

Query.Close;
Query.Open;

dm.qDelete.SQL.Text := 'DELETE from ВАШАТАБЛИЦА WHERE ID=:ID';
dm.qDelete.Parameters.ParamByName('ID').Value := dm.qYourQuery.FieldByName('ID').AsInteger;
dm.qDelete.ExecSQL;

dm.qYourQuery.Close;
dm.qYourQuery.Open;

procedure TMainForm.DBGrid1DblClick(Sender:TObject);
begin
  RunEditForm();
end;
 
procedure TMainForm.RunEditForm();
var f:TEditForm;
  ID:integer;
begin
  f:=TEditForm.Create(NIL);
  try
    // подготавливаем форму к показу. заполняем ее поля. настраиваем настройки
    f.Load(); // загрузка в Edit'ы текущих значений из датасета
    // показываем модально и ждем результата
    if f.ShowModal()=mrOK then
    begin
      f.Save(); // сохранение данных из формы в БД
      // а это - чтобы после переоткрытия опять встать на ту запись, которую редактировали, а не на первую, как обычно
      ID:=dm.qYourQuery.FieldByName('ID').AsInteger;
      dm.qYourQuery.Close;
      dm.qYourQuery.Open;
      dm.qYourQuery.Locate('ID',ID,[]);
    end;
  finally
    // и уничтожаем форму
    f.free;
  end;
end;

procedure TEditForm.Load();
begin
  eLastName.Text := dm.qYourQuery.FieldByName('LastName').AsString;
  eFirstName.Text := dm.qYourQuery.FieldByName('FirstName').AsString;
  dtBirthDate.Date :=  dm.qYourQuery.FieldByName('BirthDate').AsDateTime;
  if dm.qYourQuery.FieldByName('Gender').AsString = 'F' then
    rgGender.ItemIndex:=1
  else
    rgGender.ItemIndex:=0;
end;
 
procedure TEditForm.Save();
begin
  dm.qUpdate.Parameters.ParamByName('LastName').Value := eLastName.Text;
  dm.qUpdate.Parameters.ParamByName('FirstName').Value := eFirstName.Text;
  dm.qUpdate.Parameters.ParamByName('BirthDate').Value := dtBirthDate.Date;
  if rgGender.ItemIndex = 0 then
    dm.qUpdate.Parameters.ParamByName('Gender').Value := 'M'
  else
    dm.qUpdate.Parameters.ParamByName('Gender').Value := 'F';
  dm.qUpdate.ExecSQL;
end;

procedure TEditForm.Save(q:TQuery);
begin
  q.Parameters.ParamByName('LastName').Value := eLastName.Text;
  q.Parameters.ParamByName('FirstName').Value := eFirstName.Text;
  q.Parameters.ParamByName('BirthDate').Value := dtBirthDate.Date;
  if rgGender.ItemIndex = 0 then
    q.Parameters.ParamByName('Gender').Value := 'M'
  else
    q.Parameters.ParamByName('Gender').Value := 'F';
  q.ExecSQL;
end;

procedure TMainForm.RunEditForm(InsertMode:boolean);
var f:TEditForm;
  ID:integer;
begin
  f:=TEditForm.Create(NIL);
  try
    if not InsertMode then
      f.Load(); 
    if f.ShowModal()=mrOK then
    begin
      if InsertMode then
        f.Save(dm.qInsert)
      else
      begin
        f.Save(dm.qUpdate);
        ID:=dm.qYourQuery.FieldByName('ID').AsInteger;
        dm.qYourQuery.Close;
        dm.qYourQuery.Open;
        dm.qYourQuery.Locate('ID',ID,[]);
      end;
    end;
  finally
    f.free;
  end;
end;