Fórum Melhorar Código de criar componentesss emtempo de Execução #418060

var
  times  : array of integer;
  i, qt, n, total : integer;
  achou : boolean;
  labels: TLabel;
  label2: TLabel;
  label3: TLabel;
  label4: TLabel;
  label5: TLabel;
  label6: TLabel;

  MudaPosition: integer;

begin
  Randomize;
  SetLength(times, QuantTime);
  MudaPosition := 224;

  for i := (low(times) + 2) to ((Length(times) -1) div 2) + 1 do
  begin
    labels := TLabel.Create(Self); //Da o valor especificado a variavel do tipo TButton
    labels.Parent := ScrollBoxMostra; //O botão aparece no formulario,você pode colocá-lo dentro de
    //qualquer outro componente colocando o nome dele,exemplo: panel1
    labels.Left:=16; //Especifica a posição X do botão
    labels.Top:=25 + MudaPosition; //Especifica a posição Y do botão
    labels.Height:=19; //Define a altura do botão
    labels.AutoSize:=True; //Define a largura do botão
    labels.Caption := True;
    labels.Name:= label + inttostr(i); // Coloca um Nome na Label
    MudaPosition := MudaPosition + 25;
    Memo1.Lines.Add(labels.Name + #13);
  end;

...
for i := 0 to total do
  begin
    if i = 0 then
    begin
    label1.Caption := Time  + inttostr(times[i]) +  x Time  + inttostr(times[total+i+1]);
    ShowMessage(Label1.Name);
    ShowMessage(Label1.Caption);
    end;
    if i = 1 then
    begin
    label2.Caption := Time  + inttostr(times[i]) +  x Time  + inttostr(times[total+i+1]);
    ShowMessage(label2.Name);
    ShowMessage(label2.Caption);
    end;
    if i = 2 then
    begin
    label3.Caption := Time  + inttostr(times[i]) +  x Time  + inttostr(times[total+i+1]);
    end;
    if i = 3 then
    begin
    label4.Caption := Time  + inttostr(times[i]) +  x Time  + inttostr(times[total+i+1]);
    end;
    if i = 4 then
    begin
    label5.Caption := Time  + inttostr(times[i]) +  x Time  + inttostr(times[total+i+1]);
    end;
    if i = 5 then
    begin
    label6.Caption := Time  + inttostr(times[i]) +  x Time  + inttostr(times[total+i+1]);
    end;