Как по пути опредилить файл это или папка

[Anatol_rus]

Народ подзабыл чуток,не напоните??
Вот код для перетаскивания файлов в окно приложения-
ет у нас в обработчике OnCreate:
DragAcceptFiles(Handle, true);
Ето в описании класса TForm:
protected
procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;

А в эту процедуру она заходит при отпускании левой кнопки мыши:
procedure TForm1.WMDropFiles(var Msg: TMessage);
var
FileName: array[0..256] of char;
begin
DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));
//Делаем то что нам надо
DragFinish(THandle(Msg.WParam));
end;

Так вот в FileName передается путь перетаскиваемого файла(или папки)
и у меня - есть ли процедура в Delphi 7 опредиляющая файл это или папка??

[mihali4]

faDirectory - атрибут файла

[Anatol_rus]

Всем спасибо разобрался сам
Для етого сгодится FileExists