Fórum Ainda não consegui.... :( #147122

procedure TForm1.Button2Click(Sender: TObject);
var
    SR: TSearchRec;
    I: integer;
    arquivo: string;
begin
   I := FindFirst(´c:\pasta\*.*´, faAnyFile, SR);
   while I = 0 do
       begin
       if (SR.Attr and faDirectory) <> faDirectory then
          begin
          [b]arquivo[/b] := ´c:\pasta\´ + SR.Name;
if extractfileex(arquivo) <> ´doc´ then
 DeleteFile(arquivo);
       end;
       I := FindNext(SR);
   end;
end;