Function BytesToStr(NumberOfBytes:Int64) : String;
        Const GBSize = 1073741824; // Giga
        Const MBSize = 1048576; // Mega
        Const KBSize = 1024; // Kilo
var
        NumberOfGB:Int64; // Giga
        NumberOfMB:Int64; // Mega
        NumberOfKB:Int64; // Kilo
begin
        NumberOfGB:=NumberOfBytes div GBSize;
        NumberOfBytes:=NumberOfBytes mod GBSize;

        NumberOfMB:=NumberOfBytes div MBSize;
        NumberOfBytes:=NumberOfBytes mod MBSize;

        NumberOfKB:=NumberOfBytes div KBSize;
        NumberOfBytes:=NumberOfBytes mod KBSize;

        Result:=FormatFloat('0000',NumberOfBytes) + 'B(s)';
        Result:=FormatFloat('0000',NumberOfKB) + 'KB(s), ' + Result;
        Result:=FormatFloat('0000',NumberOfMB) + 'MB(s), ' + Result;
        Result:=FormatFloat('00',NumberOfGB) + 'GB(s), ' + Result;
end;