Eine Nach-Komma-Stelle

[Pseudemys Nelsoni]

ich hätte es so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Pos(',', FloatToStr(StrToFloat(Edit1.Text) / 0.5)) = 0 then
  begin
    if StrToFloat(Edit1.text) <= 15 then
    ShowMessage('geht')
    else ShowMessage('geht nicht');
  end
  else
  ShowMessage('geht nich');
end;