object Form1: TForm1
  Left =  194 
  Top =  106 
  Width =  617 
  Height =  243 
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = - 11 
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch =  96 
  TextHeight =  13 
  object Button1: TButton
    Left =  404 
    Top =  28 
    Width =  101 
    Height =  25 
    Caption = 'Через IBSQL'
    TabOrder =  0 
    OnClick = Button1Click
  end
  object Button2: TButton
    Left =  404 
    Top =  72 
    Width =  101 
    Height =  25 
    Caption = 'Через IBQUERY'
    TabOrder =  1 
    OnClick = Button2Click
  end
  object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 'E:\Wrk\TestIBX\TEST.GDB'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'lc_ctype=WIN1251')
    LoginPrompt = False
    IdleTimer =  0 
    SQLDialect =  3 
    TraceFlags = []
    AllowStreamedConnected = False
    Left =  44 
    Top =  12 
  end
  object IBSQL1: TIBSQL
    Database = IBDatabase1
    ParamCheck = False
    SQL.Strings = (
      'create procedure TEST1'
      'returns (Id integer)'
      ''
      'as'
      'begin'
      '  for  select id from BTABLE '
      '    into :Id do'
      '      suspend;'
      'end;')
    Transaction = IBTransaction1
    Left =  88 
    Top =  12 
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    AutoStopAction = saNone
    Left =  156 
    Top =  20 
  end
  object IBQuery1: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks =  1000 
    CachedUpdates = False
    ParamCheck = False
    SQL.Strings = (
      'create procedure TEST2'
      'returns (Id integer)'
      ''
      'as'
      'begin'
      '  for  select id from BTABLE '
      '    into :Id do'
      '      suspend;'
      'end;')
    Left =  72 
    Top =  100 
  end
end

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IBDatabase, IBSQL, DB, StdCtrls, IBCustomDataSet, IBQuery;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IBDatabase1: TIBDatabase;
    IBSQL1: TIBSQL;
    IBTransaction1: TIBTransaction;
    IBQuery1: TIBQuery;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not IBDatabase1.Connected then
  IBDatabase1.Open;
if not IBTransaction1.InTransaction then
  IBTransaction1.StartTransaction;
  try
    IBSQL1.ExecQuery;
    IBTransaction1.Commit
  except
    IBTransaction1.Rollback
  end

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if not IBDatabase1.Connected then
  IBDatabase1.Open;
if not IBTransaction1.InTransaction then
  IBTransaction1.StartTransaction;
  try
    IBQuery1.ExecSQL;
    IBTransaction1.Commit
  except
    IBTransaction1.Rollback
  end
end;

end.