Probleme mit Umrechnung und korrekter Ausgabe

[SoD]

Mahlzeit liebe DPler,

ich arbeite derzeit an einem "kleinen" textbasierten RPG, bei dem ich einen Assistenten zur Charakter-Erstellung machen möchte. Dabei stoße ich jetzt auf ein unerwartet großes Problem: Es will mir nicht gelingen die 4 verschiedenen Währungseinheiten gemäß dem mir vorliegenden Regelwerk zu implementieren. Falls es

Folgende Einheiten gibt es (wer Das Schwarze Auge kennt erzähl ich hier wenig neues ):

Kreuzer (kleinste)
Heller (klein)
Silber (Einheit vor der ausgegangen wird)
Dukaten (größte)

Das Problem an der ganzen Sache: Ich krieg es ums Verrecken nicht hin, dass mir diese vier Einheiten in vier verschiedenen Edits korrekt angezeigt werden, wenn man ab jeweils 10 in die nächste Einheit überwechselt. Das sieht dann nämlich so aus, als hätte man 2 EUR und 161 Cent und man meint, sich was für 3 EUR nicht leisten zu können.

Mir sind die Ideen ausgegangen, wie ich das richtig coden muss.

Delphi-Quellcode:

procedure TFrame2CharCreate.GetCountMoney(Sender: TObject);

var
  iSilber: Integer;

begin
  // Zufallsgenerator init
  Randomize;

  // Vermögen auswürfteln
  repeat
    iSilber := Random(6)
  until iSilber > 0; // Nullwert verhindern

  iSilber := (iSilber + 6) * 10; // = Gewürfeltes Silber
  EditSilber.Text := IntToStr(iSilber);

  // Währungs-Einheiten umrechnen
  if iSilber > 10 then
  begin
    {???}
  end;
end;

Hat hier jemand ne Idee, wie man das lösen könnte?