Fehler bei Dateneingabe

[snboy2010]

Hier bis jetzt das gesamte Programm:

Code:

function VerbrauchBenzinJahr(ver100ben, jahrkm : double): double;
begin
    result := ver100ben * jahrkm / 100;
end;

function BenzinkostenJahr(aktpreis, ausgabevbj : double): double;
begin
    result := aktpreis * ausgabevbj;
end;

procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
  decimalseparator := '.';
  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
   begin
      ShowMessage('Bitte Zahlen zur Eingabe verwenden!');
    end;

    ausgabevbj := VerbrauchBenzinJahr(ver100ben, jahrkm);
    ausgabebkj := BenzinkostenJahr(aktpreis, ausgabevbj);

    Panel1.Caption := FloatToStr(ausgabevbj);
    Panel4.Caption := FloatToStr(ausgabebkj);

end;

end.

Sorry, wenn ich euch nerve. Aber diese Hausaufgabe muss ich morgen abgeben