1:
2:
3:

if directoryexists(D:\ein\Pfad) then
  Mcfarlane.freu
else McFarlane.traurigschau;					

1:
2:
3:
4:
5:
6:
7:

uses SysUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DirectoryExists('C:\Programme') then
    Showmessage('Das Verzeichnis existiert');
end;					

1:
2:
3:
4:
5:
6:
7:
8:

var
  DirEx: Cardinal;

    DirEx:=GetFileAttributesW(PWideChar(MyFileName)); //DirectoryExists
    if (DirEx<>DWord(-1)) and (FILE_ATTRIBUTE_DIRECTORY and DirEx=FILE_ATTRIBUTE_DIRECTORY) then
    begin
      //hier dein Code
    end