Помогите с динамической паматью!

[profi]

Нужно из произвольного текстового файла, например temp.txt прочитать весь текст в массив и этот массив вывести в объект Delphi RichEdit. У меня проблема в том что я не знаю как правильно в Delphi выделить динамическую память для этого массива строк.

[puporev]

прочитать весь текст в массив

Тут ведь не написано,массив символов. Может массив строк.

[eoln]

Кидаем RichEdit и Button.

const
  FileName = '0.txt';
var
  Form1: TForm1;
  mas: array of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: word;
  t: textfile;
begin
  assignfile(t, FileName);
  reset(t);
  while not eof(t) do
  begin
    SetLength(mas, Length(mas) + 1); //увеличение массива
    readln(t, mas[Length(mas) - 1]) //читаем в массив строку
    //"Length(mas) - 1" т.к. нумерацию идёт с нуля
  end;
  closefile(t);
  for i := 0 to Length(mas) - 1 do
  begin
    richedit1.Lines.Add(mas[i])
  end;
  SetLength(mas, 0) //очищаем массив
end;