[joker7438]

Вот код который у меня не работает(((

Код:

procedure TForm1.Button4Click(Sender: TObject);
var Lab: Array of TQRLabel;
       n,i: Integer;
begin

//

  n := 10;
  SetLength(Lab, n+1);
    for i := 0 to n-1 do
    begin
      Lab[i] := TQRLabel.Create(form2.QuickRep1);
      Lab[i].Parent := form2.QuickRep1;
      Lab[i].Left := 10;
      Lab[i].Top := i*30+20;
      Lab[i].Caption := Form1.StringGrid1.Cells[0,i];
  
end;

//

end;