Delphi Rechnung mit Label

[Hanswurst1]

Hallo,

ich habe folgendes Problem ich muss in einer Formel durch ein Label teilen Delphi zeigt mir dabei aber immer nur an das ich den falschen Typ zum Rechnen gewählt habe. Die anderen Zahlen sind eingaben aus dem Edit Feld.

Da ich änfänger bin mit delphi und schon vieles ausprobiert habe weiß ich nun nicht mehr weiter ich hoffe ihr könnt mir helfen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Label11Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Zahl1, Zahl2,Zahl3,Zahl4: single;
implementation

{$R *.DFM}

procedure TForm1.Edit1Change(Sender: TObject);
begin
Label1.caption := Inputbox('Eigabe des Kredites','Wie viel € ?','');
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
label2.caption := Inputbox('Eigabe der Wunschrate','Wie hoch ist die monatliche Wunschrate?','');
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
Label3.caption := Inputbox('Eigabe des Zinssatzes','Wie hoch ist der Zinssatz?','');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Label5Click(Sender: TObject);
begin
if (RadioButton1.Checked)
then
  begin
    Zahl1:= StrToFloat(Edit1.text);
    Zahl2:=100;
    Label5.caption := FloatToStr((Zahl1/Zahl2)/2)
  end
else
  Label5.caption :='0';

end;



procedure TForm1.Label7Click(Sender: TObject);
begin
Zahl1 := StrToFloat(Edit1.text);
Zahl2 := 100;
Label7.caption := FloatToStr(Zahl1 / Zahl2)

end;

procedure TForm1.Label11Click(Sender: TObject);
begin
Zahl1:=StrToFloat(Edit1.text);
Zahl2:=StrToFloat (Edit2.text);
Zahl3:=StrToFloat (Edit3.text);
Zahl4:= (Label7);
Label11.Caption:= FloatToStr ((Zahl1)+(Zahl4)) div ((Zahl2) - (Zahl3));
end;

end.

speziell geht es um diese Rechnung

Delphi-Quellcode:

procedure TForm1.Label11Click(Sender: TObject);
begin
Zahl1:=StrToFloat(Edit1.text);
Zahl2:=StrToFloat (Edit2.text);
Zahl3:=StrToFloat (Edit3.text);
Zahl4:= (Label7);
Label11.Caption:= FloatToStr ((Zahl1)+(Zahl4)) div ((Zahl2) - (Zahl3));
end;