Rechner mit Zahlen-Button erstellen!

Hallöle!!

Ich hab mir ein bissen Delphi angeguckt und hab es auch hin bekommen einen (Taschen) Rechner zu ertsellen! (Der rechner besteht aus zwei Edit Fesnter und in die muss man seine Zahlen schreiben!) Ich würde das aber gern so machen das man nur ein Edit fenster hat! und Zahlen Button von 1-9 und wenn man auf einen Klickt soll die Zahl im Edit Fenster kommen! eigentlich ganz einfach aber ich weiß nicht wie man 54 oder 567873,98 schreibt zum zum Beispiel!

Kann mir da jemand helfen?? (Delphi 7 oder 6)

so siehst bei mir aus:

var
Rechner: TForm;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
Zahl1,Zahl2,Zahl3: Double;

begin
Zahl1:=strtofloat(Edit1.Text);
Zahl2:=strtofloat(Edit2.Text);
Zahl3:=Zahl1+Zahl2;
Label5.Caption:=floattostr(Zahl3);
end;

procedure TForm1.Button2Click(Sender: TObject);

var
Zahl1,Zahl2,Zahl3: Double;

begin
Zahl1:=strtofloat(Edit1.Text);
Zahl2:=strtofloat(Edit2.Text);
Zahl3:=Zahl1-Zahl2;
Label5.Caption:=floattostr(Zahl3);
end;

procedure TForm1.Button3Click(Sender: TObject);

var
Zahl1,Zahl2,Zahl3: Double;

begin
Zahl1:=strtofloat(Edit1.Text);
Zahl2:=strtofloat(Edit2.Text);
Zahl3:=Zahl1*Zahl2;
Label5.Caption:=floattostr(Zahl3);
end;

procedure TForm1.Button4Click(Sender: TObject);

var
Zahl1,Zahl2,Zahl3: Double;

begin
Zahl1:=strtofloat(Edit1.Text);
Zahl2:=strtofloat(Edit2.Text);
Zahl3:=Zahl1/Zahl2;
Label5.Caption:=floattostr(Zahl3);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Label5.Caption:='';
Edit1.SetFocus
end;

procedure TForm1.Button6Click(Sender: TObject);

var
Zahl1,Zahl2,Zahl3: Double;

begin
Zahl1:=strtofloat(Edit1.Text);
Zahl3:=Zahl1*Zahl1;
Label5.Caption:=floattostr(Zahl3);
end;

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

end.

 

ahhh!!!
Cool danke hat geklappt!!!
Hab jetzt aber noch ne Frage wie mach ich so ein Ding ","??

 

Ah schon gut habs raus!!
Trotzdem Danke!! (Habs mit String gemacht)