A função DirectoryExists retorna True se o diretório informado existe e False se não existe.

Para testar:

• Inclua na seção uses: SysUtils, Dialogs
• Coloque um botão no formulário.
• Programe o evento OnClick deste botão como segue.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DirectoryExists('C:\Tecnobyte\SAC_Free') then
    ShowMessage('O diretório existe.')
  else
    ShowMessage('O diretório não existe.');
end;