Nur so als Idee, könnte man nicht gerade bei der Binärdarstellung trixen, weil das ja immer 2^(10*n) ist? Das man da irgendwie rumshiftet? Also jetzt mal als Spontanidee:
Delphi-Quellcode:
i := <größe>
while (i > 1024) do
i := i shl 10;
Ungetestet und nur hier mal kurz eingetippt.
MfG
Fabian