codice:
var
  testo : TStringList;     
res : boolean;
begin
  testo := TStringList.Create
       res := HTTPGetText('http://dominio.com' + URLEncode(query), testo);

    end;

    testo.Free;
end;
in testo ti trovi la risposta del server.

ciao
sergio