Resultado de un query en Delphi

[MRang14]

Gracias ya encontre la solucion a mi problema

Query.SQL.Clear;
Query.SQL.Add( 'Select a.Clave, a.Nombre, a.Fecha, b.Articulo, b.Cantidad from Vendedores as a, Ventas as b where a.clave=b.ventas);
Query.ExecSQL;
Query.First
While not Query.Eof do begin
Resultado := Resultado + Query.FieldByName('Articulo').asString + Query.FieldByName('Cantidad').asString ;
Query.Next;
end;
Query.Close;