aqui esta el codigo que estoy usando:
Código Delphi
[-]
with ZQuery1 do
begin
if active then Close;
sql.Clear;
sql.add('select p.id_posicion,e.serie from posiciones2 p,equipos e');
sql.add('where e.serie like %'+quotedStr(Enumcliente.text));
Open;
label1.Caption := zquery1.SQL.Text;
If not zquery1.IsEmpty Then Begin
label1.Caption := zquery1.FieldValues['id_posicion'];
end;
bueno si alguien puede ayudarme, lo agradecere mucho