[oliviagadel]

gracias, con el siguiente codigo que me habeis indicado funciona perfectamente:

frm:=tquickreport1b.create(self);
try
with frm do begin
qtodo.close;
qtodo.sql.Clear;
qtodo.sql.add(s);
qtodo.open;
preview;
end;
finally frm.Free; end;