var query:TZquery;
begin
query := TZquery.Create(nil);
with query do begin
connection := (your TZConnection);
SQL.Clear;
SQL.Add('SELECT BLABLABLA.....');
(eventually ParambyName('your parameter').AsString := ....)
ExecSQL;
or
Open;
while not EOF do begin
(work with FieldbyName('...').Asstring);
Next;
end;
Close;
Free;
end;