استخدام ديناميك اراي ( tableau dynamique )

[onexite]

السلام عليكم
هذه محاولة ناجحة لاستخدام tableau dynamique اي انه غير معلوم العدد

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;


 type
  TDynamicSA= array of string;

type
  TForm1 = class(TForm)
    mmo1: TMemo;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function mychar :string  ;
 var i:Integer;
 
begin
{ min,maj:string;
for i:=65 to 90 do
  maj:=maj+char(i) ;

  for i:=97 to 122 do
  min:=min+char(i) ;  }

  Randomize;
  for i:=0 to 5 do
  Result:= Result+char(Random(255));
end;




      function list:TDynamicSA;
      var i:Integer;
      begin
        for i:=0 to 255 do begin
       SetLength(Result,Length(Result)+1);
       Result[i]:=mychar//(i);
         end;
      end;




procedure TForm1.btn1Click(Sender: TObject);
  var i:Integer;
begin
mmo1.Clear;
for i:=0 to Length(list) do
mmo1.Lines.Add(list[i])
end;

end.