as400

Bom Dia

To com o seguinte problema

Criei uma conexão direta com o As400 a conexão ta certa porem ao fazer busca esta dando erro to usando o seguinte codigo

begin

 DMHOS.SQLQPACINT.Active:= False;

 DMHOS.SQLQPACINT.SQL.Clear;

 DMHOS.SQLQPACINT.SQL.Add('SELECT RAIINT, RGPINT, DTIINT, IDAINT FROM "LIBRARY"."TABELA"');

 DMHOS.SQLQPACINT.SQL.Add('WHERE RAIINT = ' + TXTRA.Text);

 DMHOS.SQLQPACINT.Active:= True;

 end;

 if (DMHOS.SQLQPACINT.RecordCount > 0) Then

 begin

 txtrg.Text:= DMHOS.SQLQPACINT.Fields[1].AsString;

 txtdatainter.Text:=DMHOS.SQLQPACINT.Fields[2].AsString;

 txtidade.Text:=DMHOS.SQLQPACINT.Fields[3].AsString;

 end

vlws

/applications/core/interface/imageproxy/imageproxy.php?img=http://img155.imageshack.us/img155/349/yoshispc7.jpg&key=da4af4ac96072aba051d3639a30b5dc97d657a3c312d8221d7486c20978d3b3c" alt="Imagem Postada" />