Fehler bei Dateneingabe

[snboy2010]

Wenn Sie es so meinen:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
  if TryStrToFloat(Edit6.Text,aktpreis) and TryStrToFloat(Edit3.Text,ver100ben)
      and TryStrToFloat(Edit4.Text,jahrkm) then
    begin
      aktpreis := StrToFloat(Edit6.Text);
      ver100ben := StrToFloat(Edit3.Text);
      jahrkm := StrToFloat(Edit4.Text);
    end
  else
  decimalseparator := '.';
   begin
      aktpreis := StrToFloat(Edit6.Text);
      ver100ben := StrToFloat(Edit3.Text);
      jahrkm := StrToFloat(Edit4.Text);
    end;

Das läuft nur bediengt. Ich kann zwar die Eingabe mit , und . machen. Aber: Umswitchen von , auf . geht immer. Wenn ich aber die Eingabe mit einem . mache und dann auf , umswitchen will--> kommt die Fehlermeldung.