[tango01]

tambien probe sin el parent := self

pero igual no anda.

procedure Tqr_print.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
try
datos.q_x.Close;
datos.q_x.SQL.Text := 'select * from posiciones where banco = ' + QuotedStr( datos.q_qr.fieldbyname('banco').AsString);
datos.q_x.Open;

while not datos.q_x.Eof do
begin
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Left := datos.q_x.fieldbyname('left').AsInteger;
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Top := datos.q_x.fieldbyname('top').AsInteger;
datos.q_x.Next;
end;
except
end;
end;