Ich würde das CreateDir mit
ForceDirectories austauschen (und es auch als Prüfung verwenden)
also
Delphi-Quellcode:
case Profil of
p1: begin
if ForceDirectories(p1String) then begin
//andere Sachen machen, auch den Pfad p1String verwenden
end;
end;
//etc...