Dateipfad in Variable speichern?

[KodeZwerg]

Delphi-Quellcode:

const
  DirArray: array[0..3] of String = ('H:\testend\profil1', 'H:\testend\profil2', 'H:\testend\profil3', 'H:\testend\profil4');

function DirCheck(const AIndex: Integer): Boolean;
begin
  if ((AIndex < Low(DirArray)) or (AIndex > High(DirArray))) then
    Exit(False);
  Result := ForceDirectories(DirArray[AIndex]);
end;

Vielleicht so in der Art... ?