Fehler bei Dateneingabe

[Sir Rufo]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
  if not TryStrToFloat( StringReplace( Edit6.Text, '.', ',', [] ), aktpreis ) then
    begin
      Edit6.SetFocus;
      Exit;
    end;
  if not TryStrToFloat( StringReplace( Edit3.Text, '.', ',', [] ), ver100ben ) then
    begin
      Edit3.SetFocus;
      Exit;
    end;
  if not TryStrToFloat( StringReplace( Edit4.Text, '.', ',', [] ), jahrkm ) then
    begin
      Edit4.SetFocus;
      Exit;
    end;
  // Jetzt rechnen