[ecfisa]

Hola oktubre.

amigos, he probado los codigos y tengo problemas con los strings.
el famoso "invalid variant type conversion" me persigue!!!

El problema es que estas accediendo a los campos mediante la propiedad vectorial por omisión FieldValues, y esta es de tipo Variant.

Es incorrecto hacer:

Código Delphi [-]
  Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);

Lo correcto sería:

Código Delphi [-]
  Concat(VarToStr(Tquery1['Campo1']),' ',VarToStr(Tquery1['Campo2']),' - ',VarToStr(Tquery1['Campo3']));

Algo así tendría que funcionarte: ( Como también la propuesta de ElKurgan )

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT CANTIDAD,ARTICULO,PRECIO FROM DETALLE');
  Query1.SQL.Add('WHERE IDFACTURA = 33');
  Query1.Open;
  while not Query1.Eof do
  begin
    Memo1.Lines.Add(Query1.FieldByName('CANTIDAD').AsString)+' # '+
                    Query1.FieldByName('ARTICULO').AsString+'          $'+
                    Query1.FieldByName('PRECIO').AsString);
    Query1.Next;
  end;
  Query1.Close;
end;

Otra opción (la más símple) es crear los campos persistentes en el Query y trabajar con ellos.

Pero a todo esto yo veo un problema más difícil de solucionar. El TMemo no está diseñado para trabajar con columnas y tabular los resultados de forma correcta es un rompedero de cabeza. No sirve por ejemplo usar StringOfChar para tratar de ajustar con espacios los campos ya que la diferencia en píxeles de los caracteres no permiten el correcto espaciado.

Sé que pusiste:

pero no quiero usar un DBgrid, quiero generar una línea para ser agregada en un memo

Pero me parece que es mucho más simple usar un TDBGrid creando las columnas con el editor de columnas y poner esto en el evento OnShow del TForm:

Código Delphi [-]
DBGrid1.Options:= [dgTitles];

Saludos.