Cette fonction permet de vérifier l'existence d'un répertoire.

Function DirectoryExists(Name:String): Boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
if DirectoryExists(Edit1.Text) then ShowMessage('le dossier existe')
else ShowMessage('le dossier existe pas');
end;