Warum nicht einfach so? Halt ist genau das, was du suchst. (für application.close musst du die
unit forms einbinden, die dein programm aber nur unnötig ausbläht)
Delphi-Quellcode:
if SearchForFile(GetSysDir+'\', Filename, APathFound) then
WriteLn(myFile,':: Available: '+GetSysDir+'\'+Filename)
else
begin
WriteLn(myFile,':: Missing: '+GetSysDir+'\'+Filename);
halt;
end;