Währung stimmt nicht

[dm16]

Hallo,

bin neu hier und hoffe, das richtige Forum erwischt zu haben...
Mein Problem ist Folgendes: Ich habe mir einen Rechner programmiert, der mir am Ende als Ergebnis einen Geldbetrag anzeigen soll. Das tut er auch, allerdings in Dollar. Ich möchte aber gern Euros da stehen haben. Nun habe ich gelesen, dass in dafür der in die Systemsteuerung hinterlegte Währung entsprechend des Landes genutzt wird. Da ist alles auf deutsch bzw. Deutschland gestellt.
Kann mir jemand helfen, dass ich am Ende einen Eurobetrag erhalte?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Z_alt, Z_neu, Verbrauch, Preis: real;
begin
     Z_alt:= Strtofloat(edit1.text);
     Z_neu:= Strtofloat (Edit2.Text);
     Verbrauch:= Z_neu-Z_alt;
     Preis:= (90+Verbrauch*0.2)*1.16;
     panel1.caption:= floattostrF(Preis,ffcurrency,18,2);
end;

end.

Ich hoffe, ihr könnt mir helfen. Danke schonmal im Voraus!

Viele Grüße,
Dirk