Заполнить динамический массив через while

[Shouldercannon]

Не получается заполнить динамический массив через while. Не знаю где и как правильно задать длину массива. Помогите, пожалуйста.

type
  TFileList = record
    sFile: string;
    Hash: string;
  end;

var
  Form1: TForm1;
  FileList: array of TFileList;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := 'File1.txt:AS;File2.txt:AD;File3.txt:AF;File4.txt:AG;';

  SetLength(FileList, 0);

  while Pos(':', s) <> 0 do
  begin
    FileList[Length(FileList)].sFile := Copy(s, 1, Pos(':', s) - 1); // Путь к файлу
    Delete(s, 1, Pos(':', s));
    FileList[Length(FileList)].Hash := Copy(s, 1, Pos(';', s) - 1); // Хэш-сумма файла
    Delete(s, 1, Pos(';', s) + 2);

    SetLength(FileList, Length(FileList) + 1);
  end;
end;

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i: Integer;
begin
  s := 'File1.txt:AS;File2.txt:AD;File3.txt:AF;File4.txt:AG;';

  while Pos(':', s) <> 0 do
  begin
    i:=High(FileList)+2;
    SetLength(FileList, i);
    FileList[i-1].sFile := Copy(s, 1, Pos(':', s) - 1); // Путь к файлу
    Delete(s, 1, Pos(':', s));
    FileList[i-1].Hash := Copy(s, 1, Pos(';', s) - 1); // Хэш-сумма файла
    Delete(s, 1, Pos(';', s) + 2);
  end;
end;