[Alegun]

Тогда попробуйте сделать так

Код:

 ADOTable1.Open;
 ADOTable1.Locate('Id_s', 4, [loCaseInsensitive, loPartialKey]);
 if ADOTable1.FieldValues['Id_s'] = 4 then with Form5.ADOQuery1 do
  begin
   Edit;
   FieldByName('Doljnost').AsString:='56';
   Post;
  end;