var SR:TSearchRec;
begin
      ChDir('C:\x-hider');
      if FindFirst('System.dcu',faAnyFile,sr)<>0 then
            ShowMessage('aaa');
      if FindFirst('Windows.dcu',faAnyFile,sr)<>0 then
            ShowMessage('aaa');
      FindClose(SR);
end;