Hola te dejo un ejemplo de un código que uso en un formato de Factura en PDV, pero que se puede adaptar a cualquier otro módulo y/o formato.

Espero te sirva, saludos.

var FPedidoOrigen: String;

Pedidos: string;

begin

Pedidos := '';

Memo1.Visible := DocumentosPVenta['Folio'] <> '';

if Memo1.Visible then

begin

Memo1.Lines.Clear;

SetQuery('select * from doctos_pv dv left join doctos_pv_ligas vl on (dv.docto_pv_id=vl.docto_pv_fte_id)'+

'where vl.docto_pv_dest_id=:DOCTO_PV_id');

SetParamValue('DOCTO_PV_ID',DocumentosPVenta['Docto Pv Id'] );

OpenQuery;

First;

while not Eof do

begin

FPedidoOrigen := FolioSinJustificar(GetFieldAsString('FOLIO'));

if Pedidos = '' then

Pedidos := FPedidoOrigen

else

Pedidos := Pedidos+', '+FPedidoOrigen;

Next;

end;

Memo1.Lines.Add('Ticket: '+ Pedidos);

CloseQuery;

end;

end;