Kod: QStok : TQuery/// tanımlı... ... procedure TForm1. QStokPostError ; var DBIError:Integer; // Mesajoku:string; begin if then Begin DBIerror:= . Errors . ErrorCode ; if DBIError = 9729 then Begin // MessageDlg ('Geçersiz Stok Kodu Numarası... Aynısı Mevcut... Lütfen Farklı bir sayı girin', Mtwarning, ,0); Application. MessageBox ; Dataset. Cancel ; E. Free ; end; end; //2. hata yakalama boş kayıt girişi engellenmesi // Mesajoku:=E. message; // if (Pos <> 0) or (pos <>0) then if DBIError = 9732 then begin // MessageDlg('Boş bir Kayıt kesinlikle giremezsiniz.!!', mtError, ,0); Application. MessageBox ; // dxDBEdit2. SetFocus; Dataset. Cancel ; Sysutils. Abort ; E. Free ; end; end;