dm.tbBook.Edit;
dm.tbBook.FieldByName('id').AsInteger:= 10;
dm.tbBook.Post;
...

ZConnection.ExecuteDirect('UPDATE таблица SET id='+Edit1.Text);
ZConnection.Commit;

UPDATE таблица SET поле1=значение1. поле2=значение2 WHERE какое-то условие

dm.tbBook.Edit;
dm.tbBook.FieldByName('id').AsInteger:= 10;
dm.tbBook.Post;

dm.tbBook.FieldByName('id').AsInteger:= 10;

bEverythingOK := AFunctionForValidation;

Wind := FindWindow(nil, 'Form1');
Btn := FindWindowEx(Wind, 0, nil, 'Кнопка');
SendMessage(Btn, BM_CLICK, 0, 0);

unit u_tester;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 type
   PFindWindowStruct = ^TFindWindowStruct;
   TFindWindowStruct = record
     Caption : string;
     ClassName : string;
     WindowHandle : THandle;
   end;

 function EnumWindowsProc(hWindow : hWnd;
                          lParam  : LongInt) : Bool
 {$IFDEF Win32} stdcall; {$ELSE} ; export; {$ENDIF}
 var
   lpBuffer : PChar;
   WindowCaptionFound : bool;
   ClassNameFound : bool;

 begin
   GetMem(lpBuffer, 255);
   Result := True;
   WindowCaptionFound := False;
   ClassNameFound := False;

   try
     if GetWindowText(hWindow, lpBuffer, 255) > 0 then
     begin
       if Pos('Ограничение пользователей', StrPas(lpBuffer)) > 0
        then WindowCaptionFound := true;
     end;

     if PFindWindowStruct(lParam).ClassName = '' then
       ClassNameFound := True else
         if GetClassName(hWindow, lpBuffer, 255) > 0 then
           if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer))
            > 0 then ClassNameFound := True;

     if (WindowCaptionFound and ClassNameFound) then begin
       PFindWindowStruct(lParam).WindowHandle := hWindow;
       Result := False;
     end;

   finally
     FreeMem(lpBuffer, sizeof(lpBuffer^));
   end;
 end;

 function FindAWindow(Caption : string;
                      ClassName : string) : THandle;
 var
   WindowInfo : TFindWindowStruct;

 begin
   with WindowInfo do begin
     Caption := Caption;
     ClassName := ClassName;
     WindowHandle := 0;
     EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
     FindAWindow := WindowHandle;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   TheWindowHandle, btn : THandle;
 begin
   TheWindowHandle := FindAWindow('', '');    // в первом параметре не передаю название окна ('Ограничение пользователей') так как подставил его вручную в ф-ии EnumWindowsProc, так как почему-то это имя не передовалось через параметр - было пусто всегда...
   if TheWindowHandle = 0 then
     ShowMessage('Window Not Found!') else
     begin
     Btn := FindWindowEx(TheWindowHandle, 0, '', 'Добавить'); // не находит кнопку
     if btn = 0 then
      ShowMessage('button Not Found!') else
        begin
          SendMessage(TheWindowHandle, BM_CLICK, 0, 0);
        end;
     end;
 end;

end.