Попробуйте прогу

[type_Oleg]

Сообщение от min@y™

чо быть-то должно?

Должны результаты различаться при разных входных данных, например массе ударника.

PS.
Наверное , надо сделать так:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.Text:=FloatToStr(0.0001);
end;

[min@y™]

Должны результаты различаться при разных входных данных, например массе ударника.

33.jpg

[type_Oleg]

min@y™, ну да, все нормально.

[Аватар]

Наверное , надо сделать так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:=FloatToStr(0.0001);
end;

А чего не так, например

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not TryStrToFloat(StringReplace(StringReplace(Edit1.Text,'.',DecimalSeparator,[]),',',DecimalSeparator,[]),m1) then begin
    ShowMessage('В поле таком-то корявые данные');
    Exit;
  end;
  ...
end;