[*Caro*]

si en tu query tienes digamos esta consulta

query.sql.text:='SELECT codigo, nombre FROM clientes';

tu puedes recorrer toda lo lista que devuelve el query y ponerlos en variables de la siguiente manera:

Código Delphi [-]
  
    query.First;
    WHILE not(query.Eof) DO
    begin
        cod:=query.Fields[0].AsString;      
        nom:=query.Fields[1].AsString;
 
        ...... 
        query.Next
    end;

donde cod y nom son variables de tipo cadena