procedure TForm1.ToCalculate;                                                // Процедура обчислити
var
  t1, t2, t3, t4, t5, t6 : extended;
  v1, v2, v3, v4, v5, v6 : extended;
  s1, s2, s3, s4, s5, s6 : extended;

begin
  RichEdit1.Lines.Add('------------');                                       // До тексту в полі RichEdit1 додається напис ----------
  RichEdit1.Lines.Add('Розв''язання');                                       // До тексту в полі RichEdit1 додається напис Розв'язання

  if ComboBox1.ItemIndex = 0 then
    if ComboBox9.ItemIndex = 6 then
      if ComboBox10.ItemIndex = 12 then
      begin
        t1:=s1/v1;
        RichEdit1.Lines.Add ('Визначаємо час руху');
        RichEdit1.Lines.Add ('t1:=s1/v1');
        RichEdit1.Lines.Add ('Швидкість руху тіла  — це фізична величина, яка показує, яку відстань проходить тіло за одиницю часу в напрямі руху.');
        RichEdit1.Lines.Add ('Механічним рухом називають зміну з часом положення тіла в просторі відносно інших тіл.');
        RichEdit1.Lines.Add(FloatToStr(t1) + 'Секунд');
      end;
      if ComboBox5.ItemIndex = 1 then
        begin
        t1:=t1*60;
        RichEdit1.Lines.Add(ComboBox1.Text + '  ' + FloatToStr(t1) + ComboBox5.Text);
        end
      else
        begin
        if ComboBox5.ItemIndex = 2 then
        t1:=t1*3600;
        RichEdit1.Lines.Add(ComboBox1.Text + '  ' + FloatToStr(t1) + ComboBox5.Text);
        end;

end;