creating PROCEDURES, TRIGGERS in Interbase 6.0

Let me try to clean that up:

   cdsTasks.Close;
   qryTasks.SQL.Clear;
   gFullText := 'select cf.casegen, cf.taskstep,
                 cf.taskpriority, cf.taskassigned,
                 cf.status, cf.taskdep, cf.loanstr, ' +
                'cf.taskdate, tl.taskgen, tl.taskname,  
                 tl.taskdept, tl.tasktype from casefile
                 cf, tasklookup tl ' +
                'where (cf.taskstep = tl.taskgen) and
                (cf.status <> ' + QuotedStr('H') + ')
                 and ' + '(cf.status <> ' + QuotedStr('C')
                + ') and (cf.deletedflag <> ' + QuotedStr
                (gcYES) + ') and ' + GetDepts;
   qryTasks.SQL.Text := gFulltext;
   ShowMessage(qrytasks.sql.text);
   cdsTasks.Open;

As far as I am concerned this can be easilly done using the following components:
    IBDatabase1: TIBDatabase;
    qry: TIBSQL;
    IBTransaction1: TIBTransaction;

all 3 components are needed and come as standard with delphi 5

below find code for unit and form (marked appropriately)


<-------------UNIT CODE--------------->
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, IBDatabase, IBCustomDataSet, IBUpdateSQL, IBSQL;

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  IBDatabase1.Connected:=true;
  qry.close;
  qry.SQL.Text:= 'create PROCEDURE AddSecond(ID Integer)'  + #10#13 +
                 'AS begin' + #10#13 +
                 'Insert into' + #10#13 +
                 'JOB(job_code) values (:ID);' + #10#13 +
                 'SUSPEND;' + #10#13 +
                 'END';
  qry.ExecQuery;
  IBTransaction1.Commit;
end;

end.
<-------------END OF UNIT CODE--------------->


<-------------FORM CODE--------------->
object Form1: TForm1
  Left = 632
  Top = 245
  Width = 714
  Height = 386
  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 = 480
    Top = 48
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 'penguin:/opt/interbase/examples/employee.gdb'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 104
    Top = 40
  end
  object qry: TIBSQL
    Database = IBDatabase1
    ParamCheck = True
    Transaction = IBTransaction1
    Left = 320
    Top = 40
  end
  object IBTransaction1: TIBTransaction
    Active = True
    DefaultDatabase = IBDatabase1
    Left = 224
    Top = 48
  end
end
<-------------END OF FORM CODE--------------->


I tested above in both Windows and Linux against the example database that comes with IB6.
hope this helps