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.