[NumLock]

Код:

type
  TFileInfo = record
    Name: String[$ff];
    Size: Int64;
  end;
var
  Arr: array of TFileInfo;
begin
  SetLength(Arr, 1);
  Arr[0].Name:='one';
  Arr[0].Size:=1024;

  SetLength(Arr, 2);
  Arr[1].Name:='two';
  Arr[1].Size:=2048;

  SetLength(Arr, 3);
  Arr[2].Name:='four';
  Arr[2].Size:=4096;

  Memo1.Lines.Add(Arr[0].Name);
  Memo1.Lines.Add(IntToStr(Arr[0].Size));
  Memo1.Lines.Add(Arr[1].Name);
  Memo1.Lines.Add(IntToStr(Arr[1].Size));
  Memo1.Lines.Add(Arr[2].Name);
  Memo1.Lines.Add(IntToStr(Arr[2].Size));
end;