Zahleneingabe über mehrere Labels

[Asura]

Wie müsste da nun die Set-Funktion aussehen?
Ich habe mich mal bis jetzt so daran versucht:

Delphi-Quellcode:

function SetDeposit(Depo: String);
begin

  //


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;


// Zahleneingabe

{ TODO : Zahleneingabe: }

procedure TF_Admin2_2.sb_Click(Sender: TObject);
begin


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

  // Kontoguthaben - Einzahlung
   lb_Acc_m_Depo.Caption :=  FloattoStrF(CheckAccountAmount(F_Users.UserID) - GetDeposit, ffCurrency, 15,2);

end;