[Den-is]

вот еще такой кусочек:

Код:

procedure TForm1.N11Click(Sender: TObject);
var
i:integer;
begin
i:=messagebox(0,'Вы действительно хотите удалить запись?','Внимание!',4);
if i=6 then begin
form2.n:=ADOQuery1.FieldByName('nomer').AsInteger;
with ADOQuery1 do
begin
  active:=false;
  sql.Clear;
  sql.Add('delete from sotrudniki');
  sql.Add('where nomer = '+inttostr(form2.n)+'');
  execSQL;
end;
end;
end;

тоже не работает