Probleme mit DBedit und Rechenoperation

[Matzespens]

Ich bins mal wieder,
ich komme irgendwie nicht weiter... (Vielleicht bin ich auch bescheuert )

ich habe in meinem Programm mehrere DBedit felder mit denen ich eine Rechnung erstellen und anschließend über einen RaveReport wieder ausgeben möchte.
Nur löscht er mir zwischendurch immer mein Feld 'Warenwert' (das ich vorher ausrechnen lasse - siehe Quelltext)
Also immer wenn der Wert ausgerechnet wurde und ich in dem Feld 'Versandkosten' das darunter liegt eine Eingabe mache löscht er mir das Feld 'Warenwert'.

So sieht mein Quelltext aus:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
var
a,b,c,x,y,z: single;
g,s : string;
code: integer;
begin
Val(dbedit10.Text, a, code); if code <> 0 then exit;          //Menge
Val(dbedit11.Text, b, code); if code <> 0 then exit;         //Einzel Preis
c := (b*a);                                                                   // Gesamt Preis
str(c:6:2, g);
dbedit12.Text := g;
//Anfang*****************Warenwert******************            // Hier lasse ich mir dann den kompletten Warenwert ausrechnen
edit2.Text := dbedit12.Text;
val(edit2.Text, x,code);if code <> 0 then exit;
val(dbedit13.text, y,code); if code <> 0 then exit;
z := x+y;
str(z:6:2, s);
dbedit13.Text := s;                                                        // und hier wieder ausgeben ( Dieses Feld wird dann bei der nächsten Eingabe immer gelöscht??

//Ende****************Warenwert*********************
end;

procedure TForm2.Button5Click(Sender: TObject);
var
mwst,ww,vk, mwstbtrg,rw: single;
rbetrag,mwstbetrag: string;
code : integer;
begin
val(dbedit13.Text, ww,code);if code <> 0 then exit;            //Warenwert
val(dbedit9.text, vk,code); if code <> 0 then exit;               // Versandkosten
val(dbedit15.Text, mwst,code);if code <> 0 then exit;        //Mehrwertsteuer in Prozent
mwstbtrg := ww*(mwst/100);                                            //Mwst. Betrag ausrechnen
rw := mwstbtrg + ww + vk;                                                //Rechnungsbetrag ausrechnen
str(mwstbtrg:6:2,mwstbetrag);
dbedit16.Text := mwstbetrag;                                            //Ausgabe Mwst Betrag
str(rw:6:2, rbetrag);
dbedit17.Text := rbetrag;                                                //Ausgabe Rechng. Betrag

end;

procedure TForm2.FormCreate(Sender: TObject);
begin
dbedit13.Text := '0';
end;

Danke im voraus für die Hilfe

Gruß

Matze