¿Cómo determina Delphi si un archivo existe o no, si es un archivo o una carpeta?

En Delphi, puede usar la función FileExists/DirectoryExists para determinar si el archivo o carpeta especificado existe, o puede usar la función GetFileAttributes para obtener los atributos de destino especificados. El siguiente es un ejemplo: procedimiento. ?TForm1.Button1Click(Sender:?TObject);

comenzar si?FileExists('e:\test.xls')?luego

ShowMessage('El archivo existe.' ) else

ShowMessage('El archivo no existe.'); if?DirectoryExists('E:\2017\Other')?entonces

ShowMessage('Es una carpeta. ' ) else

ShowMessage('La carpeta no existe o no es una carpeta.');

end;