Delphi Taschenrechner

[da_fighter]

moinsen,
ich hab n prob mitm delphi taschenrechner.hab erst gestern angefangen mit delphi zu proggn

das is natürlcih nich der ganze code.siehe anhang

mein konkretes probl. is jetzt dass er obwohl ich auf den /-button drücke er + rechnet..!!!
und im code steht MINUS!!!
??
wie is das denn möglich?

braucht ihr noch n bild davon?

[...]
procedure TForm1.Button1Click(Sender: TObject);
//Addition
var a, b, c: Real;
begin
a := strtofloat(edit1.text);
b := strtofloat(edit2.text);
c := a + b;
edit3.text := floattostr(c);

end;

procedure TForm1.Button2Click(Sender: TObject);
//Subtraktion
var d, e, f: Real;
begin
d := strtofloat(edit1.text);
e := strtofloat(edit2.text);
f := d - e;
edit3.text := floattostr(f);

end;

procedure TForm1.Button3Click(Sender: TObject);
//Multiplikation
var g, h, i: Real;
begin
g := strtofloat(edit1.text);
h := strtofloat(edit2.text);
i := g * h;
edit3.text := floattostr(i);

end;

procedure TForm1.Button4Click(Sender: TObject);
//Division
var j, k, l: Real;
begin
 j:= strtofloat(edit1.text);
k := strtofloat(edit2.text);
l := j/l;
edit3.text := floattostr(l);

end;

end.
[...]

achja noch ne frage mit welchem code öffnet man ein neues fenster?
und wie rechnet man mit sinus/cosinus/tangens???
so:?

[...]procedure TForm1.Button5Click(Sender: TObject);
//cosinus
var cosi: Real;
begin
cosi := strtofloat(edit4.text);
edit3.text := floattostr(cosi);

end;
[...]

thx für die hillfe
mFg
da_fighter

<edit>
das mit sinus/cosinus hab ich hinbekommen
<edit#2>
ich hab die antw schon bekommen