SQL Query Variable in INSERT INTO VALUES Anweisung

[germanos]

Hallo,
ich möchte mit folgendem Quellcode Daten in eine Tabelle übergeben. Bei den 4 EDIT.Texten geht es ohne Problem. Die Spalten der Tabelle sind wie folgt formatiert:
E2.text=INTEGER; E1.Text=INTEGER; MEDatum.text=DATE; EdText.Text=ALPHA
Der problematische Teil ist EdPreis.Text. Hier ist die Tabellenspalte CURRENCY und ich bekomme die Daten nicht untergebracht.

Hier der Quelltext:

procedure TForm1.EdPreisKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

if (Key=VK_Return) then begin
n:=StrToCurr(EdPreis.Text);
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO hb_beschreib.db(monat,NkontoID,Datum,Beschreibung, Preis)');
Query1.SQL.Add('VALUES('''+E2.text+''','''+E1.Text +''','''+MEDatum.text+''','''+EdText.Text+''','''+ EdPreis.Text+''')');


Query1.ExecSQL;
Schreiben; //Ist eine Procedur zum Ausfüllen des DBGrid und geht problemlos
end;
end;

Für schnelle Hilfe bin sehr dankbar

Peter