Ошибка в вызове процедур без параметров дельфи

[anaschu]

решил все указанные проблемы.

// щелчок на кнопке Вычислить
procedure TForm1.before_all_length();
begin
       if mm.Checked then koeff_length:=1;
       if sm.Checked then koeff_length:=10;
       if m.Checked then koeff_length:=1000;
       //if other.Checked then Checked_other:=strToint(coefficient_length_form.Text);
end;

procedure TForm1.before_all_time();
begin

       if days.Checked then koeff_time:=1;
       if hours.Checked then koeff_time:=24;
       if minuts.Checked then koeff_time:=24*60;
       //if other.Checked then before_all_time:=strToint(coefficient.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    dist : integer; // дистанция, миллиметров
    t:     integer;    // время, дни, дробное
    dist_true : integer;  // время, минуты
    t_true : integer;   // время, секунды
    v: real;        // скорость
    //cheked:boolean;
begin
    // получить исходные данные из полей ввода
    dist := StrToInt(Ed_Length.Text);
    t := StrToInt(Ed_Time.Text);



    // вычисление
    dist_true :=dist* koeff_length;  //
    t_true := t*koeff_time ;


   // v := dist_true/t_true  ;

    // вывод результата
    label4.Caption := 'Дистанция: '+ ed_Length.Text + ' м' + #13 +
                      'Время: ' + IntToStr(dist_true) + ' мин ' +
                                 IntToStr(t_true) + ' сек ' + #13 +
                      'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час';

end;

[Sciv]

Сообщение от anaschu

решил все указанные проблемы

Ну и как, заработало?

[anaschu]

https://youtu.be/4SCrZ6bEqAc

Сообщение от Sciv

Ну и как, заработало?

ура! заработало!