procedure TForm1.Button4Click(Sender: TObject);   
    var
    sr:TSearchRec;
    Result1, Result2 :word;
    begin
        ChDir('C:\x-hider');
        Result1 := FindFirst ('System.dcu',faAnyFile,sr);
        if result1=0 then
    Begin
        Result1:=FindNext (sr);
    End;
     if result1<>0 then
           begin
              showmessage('asdvxcdra')
           end;

    if Result1=0 then
                  begin
        ChDir('C:\x-hider');
        Result2 := FindFirst ('Windows.dcu',faAnyFile,sr);
        if result2<>0 then
    Begin
        Result2:=FindNext (sr);
    End;
                   end;
     if result2<>0 then
           begin
              showmessage('asdvxcdra')
           end;
    end;