Fórum Como criar vários componentes em tempo de execução? (URGENT) #189699

var MatNova : TQRLabel;
begin
Topo := 200;
Esquerda := 8;
for i:=SQLCDS_Rel_Mat_Novas.RecordCount to (SQLCDS_Rel_Mat_Novas.FieldByName(´QT_UNIDADES´).AsInteger-1) do
  begin
   MatNova := TQRLabel.Create(Self);
    with MatNova do
    begin
      Name := ´QrLabelMatNova´ + IntToStr(i);
      Parent := DetailBand1;
      Width := 30;
      Height := 17;
      Top := Topo;
      Left := Esquerda;
      Caption := IntToStr(SQLCDS_Rel_Mat_Novas.FieldByName(´CD_CONTRATO´).AsInteger + i)
    end;
    Esquerda := Esquerda + 32;
    if Esquerda > 680 then
      begin
       Topo := Topo + 18;
       Esquerda := 8;
      end;
  end;
end;