[PunK_HS]

Доброго времени суток!

Подскажите пожалуйста, есть запрос на update, генерированный

Код:

UPDATE DI_WORKERS
SET 
    NUMBER = :NUMBER,
    FIO = :FIO,
    FIO_FULL = :FIO_FULL,
    ID_UNIT = :ID_UNIT,
    ID_OWNER = :ID_OWNER,
    DELETE_WORKERS = :DELETE_WORKERS,
    DATE_DELETE = :DATE_DELETE
WHERE
    ID = :OLD_ID

Вот мой кусок из Delphi (не работает)

Код:

old_id : Integer;
...
old_id := frm_workers_list.ds_workers.FieldByName('ID').AsInteger;
...
if MessageBox(Application.Handle,'Сохранить изменения?',
          'Предупреждение',MB_YESNO)=ID_Yes then
          begin
            frm_workers_list.ds_workers_iudr.ParamByName('OLD_ID').AsInteger := old_id;
            frm_workers_list.ds_workers_iudr.Edit;
            frm_workers_list.ds_workers_iudr.FieldByName('NUMBER').AsString := Trim(e_tabnumber.Text);
            frm_workers_list.ds_workers_iudr.FieldByName('FIO_FULL').AsString := Trim(e_fio_full.Text);
            frm_workers_list.ds_workers_iudr.FieldByName('FIO').AsString := Trim(e_fio.Text);
            frm_workers_list.ds_workers_iudr.FieldByName('ID_UNIT').AsInteger := lc_units.Value;
            frm_workers_list.ds_workers_iudr.FieldByName('DELETE_WORKERS').AsBoolean := cb_delete.Checked;
            //frm_workers_list.ds_workers_iudr.ParamValue('OLD_ID').AsInteger := old_id;
            frm_workers_list.ds_workers_iudr.Post;
 
            ModalResult := mrOk;
          end;

Как правильно осуществить UPDATE?