Dateipfad in Variable speichern?

[Kevinpptx]

Hallo,

Ich versuche gerade einen Dateipfad in einer Variable zu speichern, für ein Programm, welches ungefähr folgendem Testprogramm entspricht:

Delphi-Quellcode:

procedure Test();

begin

  p1String := 'H:\testend\profil1';
  p2String := 'H:\testend\profil2';
  p3String := 'H:\testend\profil3';
  p4String := 'H:\testend\profil4';

  profil1 := true;      // Diese true bzw. false Werte würden je nach Benutzerauswahl automatisch auf true / false gesetzt werden
  profil2 := false;
  profil3 := false;
  profil4 := false;

  if profil1 then begin
    if not DirectoryExists(p1String) then begin
      CreateDir(p1String);
      //andere Sachen machen, auch den Pfad p1String verwenden
    end;
  end;

  if profil2 then begin
    if not DirectoryExists(p2String) then begin
      CreateDir(p2String);
      //andere Sachen machen, auch den Pfad p2tring verwenden
    end;
  end;

  if profil3 then begin
    if not DirectoryExists(p3String) then begin
      CreateDir(p3String);
      //andere Sachen machen, auch den Pfad p3String verwenden
    end;
  end;

  if profil4 then begin
    if not DirectoryExists(p4String) then begin
      CreateDir(p4String);
      //andere Sachen machen, auch den Pfad p4String verwenden
    end;
  end;


end;

Die Pfade in einem String zu speichern funktioniert nicht und um Internet habe ich nichts dazu gefunden. Hat jemand eine Idee, wie man das umsetzen könnte, gerne auch anders? Die 4 Pfade sind immer gleich, deswegen möchte ich vermeiden, dass man als Anwender selbst einen Pfad spezifizieren muss.

Danke schonmal für eure Antworten

Edit: Doch, es funktioniert, ich weiß nicht, warum es gerade nicht funktioniert hat. Schreibt gerne als Antwort noch Vorschläge, diese Umsetzung zu optimieren