Zahleneingabe über mehrere Labels

[Asura]

Das Problem ist, dass ich einfach nicht raus bekomme wie ich nun GetDeposit und SetDeposit ansprechen soll, damit dieser gewünschte Effekt eintritt, dass die Zahlen von rechts nach links eingefügt werden:

Delphi-Quellcode:

procedure SetDeposit(Depo: Real);
var I, DepoInt          : Integer;
begin

  DepoInt := Round(Depo * 100); 
for I := 5 downto 1 do begin
  TLabel(F_admin2_2.FindComponent('lb_depo' + IntToStr(I))).Caption := InttoStr(DepoInt mod 10);
  DepoInt := DepoInt div 10;
end;

end;

function GetDeposit: Real;
var I       : Integer;
    Deposit : String;
begin

  for I := 5 downto 1 do
    begin
        if I = 2 then Deposit := Deposit + ',';

        Deposit := Deposit + TLabel(F_admin2_2.FindComponent('lb_depo' + IntToStr(I))).Caption;

    end;

  result := StrtoFloat(Deposit);
end;

Delphi-Quellcode:

procedure TF_Admin2_2.sb_Click(Sender: TObject);
begin


  SetDeposit(GetDeposit * 10 + (Sender as TSpeedbutton).Tag); 


end;