Удаление записи из access (ADO)

var
id:Integer;
begin
ADOTable1.Open;
if EditFIO.Text=ADOTable1.FieldByName('FIO_pac').AsString then
  begin
    id:=ADOTable1.FieldByName('ID').AsInteger;
ADOQuery1.close;
ADOQuery1.SQL.Text:='delete from MRT_GRUD where id='+IntToStr(ID);
ADOQuery1.execSQL;
  end;

var
id:Integer;
begin
ADOTable1.Open;
if EditFIO.Text=ADOTable1.FieldByName('FIO_pac').AsString then
  begin
    ADOTable1.Delete;
    ADOTAble1.Post;
  end;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var
ida:Integer;
begin
ida:=0;
ADOTable1.Open;
if EditFIO.Text=ADOTable1.FieldByName('FIO_pac').AsString then
 begin
    ida:=ADOTable1.FieldByName('ID').AsInteger;
  try
    with ADOQuery1 do begin
     SQL.Clear;
     SQL.Text:='DELETE FROM MRT_GRUD where id=:ida';
     Parameters[0].Value:=ida;
     ExecSQL;
    end;
  except
   on e:Exception do
  end;
 end;
end;

var
ida:Integer;
begin
ADOTable1.Open;
if (ADOTable1.Locate('FIO_pac', EditFIO.Text, [])=true) then
 begin
    if MessageDlg('Вы действительно хотите удалить?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
     ida:=StrToInt(Lid.Caption);
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Text:='DELETE FROM MRT_GRUD where id=:ida';
     ADOQuery1.Parameters[0].Value:=ida;
     ADOQuery1.ExecSQL;
     ShowMessage(EditFIO.Text+' успешно удален(а) из базы.');
    end;
 end
 else ShowMessage('Не найдено!');
end;