uses FileCtrl; procedure TForm1.Button1Click(Sender: TObject);begin if FileExists('c:\boot.ini') then ShowMessage('File exists! Datei existiert!'); if FileExists('c:\windows') then ShowMessage('Directory Exists!');end;