delphi 判断目录是否存在

if not DirectoryExists(Edit1.Text) then 判断目录是否存在
begin
   //判断目录不存在
end;

uses
  FileCtrl;

procedure TForm4.FormCreate(Sender: TObject);
begin
  if  not FileCtrl.DirectoryExists(‘C:\temp‘) then
    showmessage(‘目录不存在‘);


end;