[delphi] Controllo esistenza e creazione cartella.

[Jolly71]

sto avendo problemi con il controllo sull'esistenza di una cartella e la relativa creazione.

dovrei controllare solo una volta se nella cartella corrente esiste la cartella "salvataggi" e se non esiste crearla e assegnarla come cartella predefinita per salvare successivamente.

il codice che ho scritto io è questo :

flag := '0';
dirlavoro :='\salvataggi';
// Controllo e set cartella
while flag = '0' do
begin
nomedir := GetCurrentDir;
nomedir := nomedir+dirlavoro;
if not DirectoryExists(nomedir)then CreateDir(nomedir);
saveDialog1.InitialDir := nomedir;
flag := '1';
end;

Così come l'ho scritto se non esiste la cartella funziona, ma le volte successive lui mi crea in salvataggi una nuova cartella salvataggi ogni volta che lo eseguo.
spero ci sia una soluzione.
grazie a tutti per l'aiuto e le risposte.