Como usar o qry no Zeos?

[Fuzileir0]

Boa tarde a todos,

Eu estou tentando colocar em prática ESTE artigo que ensina como criar um chat estilo MSN com delphi.

Eu estou usando o Delphi 2007, com Indy 10 e Zeos para se ligar ao BD.

Porém no tutorial está ensinando a usar com o dbExpress e estou com problema para entender como eu usaria

while not qrysuporte.eof do
 begin
   listasuporte.append('listasuporte||' +
[u]     qrysuporteid_suporte.asstring + '||' +
     qrysuporteapelido.asstring + '||'+
     qrysuporteonline.asstring + '||'+
     qrysuportestatus.asstring+ '||');[/u]
     qrysuporte.next;
 end;

As linhas sublinhadas não funcionam no Zeos, como eu faço pra funcionar?

PS: todos os scripts tão no link que eu postei ali em cima.

[Jhonas]

listasuporte.append('listasuporte||' +

Corrija o erro ....

listagem 3. obtendo a lista de suporte

function tserverf.getusuariossuporte: tstringlist;
var
 listasuporte: tstringlist;
begin
  dtm.qrysuporte.close;
  dtm.qrysuporte.sql.clear;
  dtm.qrysuporte.sql.add('select * from suporte');
  dtm.qrysuporte.open;
  listasuporte := tstringlist.create;
  while not dtm.qrysuporte.eof do
  begin
    listasuporte.append('listasuporte' + '||' +     // o correto
      dtm.qrysuporteid_suporte.asstring + '||' +
      dtm.qrysuporteapelido.asstring + '||'+
      dtm.qrysuporteonline.asstring + '||'+
      dtm.qrysuportestatus.asstring + '||');
    dtm.qrysuporte.next;
  end;
  dtm.qrysuporte.close;
  result := listasuporte;
end;

abraço