Program asd;
Var Folder : File;
Begin
Assign(Folder, 'C:\Folder');
{$I-}
Reset(Folder);
{$I+}
If IOResult = 2
Then
writeln('Errore, file non trovato') //e quindi la creazione della cartella

Else
Begin
Write('Trovato');
End;
Readln;
End.
IOResult diventa 2 se non lo trova altrimenti 0 se lo trova. Buona fortuna ciao