Function DirectoryExists

Uses Unit FileCtrl

A função DirectoryExists certifica se o diretório passado ao parâmetro Name existe. Se o diretório existir, a função retorna True, caso contrário, retorna False.

Sintaxe da sua utilização:

DirectoryExists(Nome_do_diretório );

Ex:

procedure TForm1.Button12Click(Sender: TObject);begin
       if DirectoryExists('C:\CtrlSys\Utilitários') then begin      
              ShowMessage('True');       end else
              ShowMessage('False');

end;