Delphi-Quellcode:
function FileSizeToStr(size:int64):string;
begin
if size < 1024 then result := inttostr(size)+'Byte';
if (size > 1024) and (size > 1024*1024) then result := formatfloat
...
Da ist eh ein Fehler drin ... ihr solltet mal darauf achten, was passiert, wenn size 1024 ist