Object und Fail

[Blup]

Bei FindClose ist SysUtils angegeben.
Eventuell wird ein falsches FindFirst aufgerufen, vieleicht dann besser so:

Delphi-Quellcode:

{$IfDef Win32}
  lEc := SysUtils.FindFirst(aDatei,aAttr,DirInfo);

SysUtils.FindClose() muss und sollte nur aufgerufen werden, wenn SysUtils.FindFirst erfolgreich war.