Вот код который у меня не работает(((
Код:
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;