Currency ist ein skalierter Int64, nur das er über die FPU berechnet wird.
Delphi-Quellcode:
Procedure TForm2.Button1Click(Sender: TObject);
Var C: Currency;
i: Int64 absolute C;
i2: Integer;
Begin
For i2 := 0 to 100 do Begin
C := i2 * 0.0531;
Label1.Caption := CurrToStr(C);
Label2.Caption := FloatToStr(i / 10000) + ' ' + IntToStr(i2);
Application.ProcessMessages;
Sleep(250);
End;
End;