[MaXun]

Originally Posted by Carldric Clement

I've just update a little bit. Just copy and paste through it.

function MbOrGB(Float: extended): ansistring;
begin
  if Float<1024 then Result:=NumToStr(Float)+' MB'
  else if (Float/1024)<1024 then Result:=NumToStr(Float/1024)+' GB'
  else if (Float/(1024*1024))<1024 then Result:=NumToStr(Float/(1024*1024))+' TB'
end;

It works! thank.
And how can I add a display of the progress of the extracted files?