Fehler bei Dateneingabe

[Sir Rufo]

ich würde meinen, dass hier die Delphi-Tags besser angebracht wären
dann sieht das so aus

Delphi-Quellcode:

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 := '.';  // <-- entweder unter das begin verschieben
   begin  // <-- oder dieses begin und das end entfernen, denn die sonst zu nix gut :o)
      aktpreis := StrToFloat(Edit6.Text);
      ver100ben := StrToFloat(Edit3.Text);
      jahrkm := StrToFloat(Edit4.Text);
    end;