Insert Array No Interbase

[Guest Reginaldo Barros Leal]

Criei uma tabela no interbase da seguinte forma :

Create table PROCCAIXA

(ATENDIMENTO integer not null,

PRESTADOR integer default 0,

AMB INTEGER [15] DEFAULT 0,

CAIXA INTEGER DEFAULT 0,

DESPESA INTEGER DEFAULT 0,

USUARIO integer not null,

Primary key (ATENDIMENTO));

Create unique index PK_PROCCAIXA on PROCCAIXA(ATENDIMENTO);

Não consigo inserir linhas nesta tabela. Estou tentando assim :

function insere_proccaixa(XATENDIMENTO : integer;

XPRESTADOR : integer;

XAMB : array of integer;

XCAIXA : INTEGER;

XDESPESA : INTEGER;

XUSUARIO : integer):Boolean;

begin

MODULO_CON.DBI.StartTransaction;

MODULO_CON.Q_PROCCAIXA.Close;

MODULO_CON.Q_PROCCAIXA.SQL.Clear;

TEXTOSQL := 'INSERT INTO PROCCAIXA (ATENDIMENTO, PRESTADOR,' +

'AMB, CAIXA, DESPESA, USUARIO) '

+ 'VALUES (' + '' + IntToStr(xatendimento) + '' + ', '

+ '' + IntToStr(xprestador) + '' + ', '

+ '' + IntToStr(xamb) + '' + ', '

+ '' + IntToStr(xcaixa) + '' + ', '

+ '' + IntToStr(xdespesa) + '' + ', '

+ '' + IntToStr(xusuario) + '' + ')';

MODULO_CON.Q_PROCCAIXA.SQL.Add(TEXTOSQL) ;

TRY

MODULO_CON.Q_PROCCAIXA.PREPARED := TRUE;

MODULO_CON.Q_PROCCAIXA.EXECSQL;

EXCEPT

ON EDBENGINEERROR DO

BEGIN

MODULO_CON.DBI.Rollback;

MESSAGEDLG('Não foi possível inserir procedimentos do caixa ' ,mtError, [mbOK], 0);

abort;

exit;

end;

end;

MODULO_CON.DBI.Commit;

end;

Gostaria de uma solução , pois já tentei de várias formas e não consegui. Tenho a função acima para inserção ...

[Progr'amador]