Vérifier si le répertoire existe

procedure TForm1.Button1Click(Sender:TObject);
begin
if DirectoryExists('c:windows') then
begin
ShowMessage('Répertoire existant');
end;
end;