[Delphi] sprawdzanie obecności folderu i pliku nie działa poprawnie

[Integer]

Witam.

 

Miałem nie pisać ale zrobiłem klasę i w niej sprawdzam jak w poniższym przykładzie czy dany folder i plik istnieje;

o zgrozo jakimś trafem nie działa poprawnie a wysypuje się Access Violation, gdy dam o jeden folder głębiej niż faktycznie:

zamiast faktycznego

'C:\test\plik.txt' daję

'C:\test\plik\plik.txt'

Czy to tylko moje szczęście czy komuś jeszcze taki błąd wysypuje?

 

Uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtDlgs, XPMan, Menus, ExtCtrls;

begin
           ShowMessage(FileName+#13+ExtractFileDir(FileName));
  if not DirectoryExists(ExtractFileDir(FileName)) then Exit;
          ShowMessage('jest folder');
  if not FileExists(FileName) then Exit;
          ShowMessage('jest plik');
end;

Dla jasności komunikat ShowMessage('jest folder'); się już nie wyświetla.

[DevPort]

A zamień ExtractFileDir na ExtractFilePath ;]

Pozdr.

[Integer]

Taki drobiazg.. dzięki