Продолжение

Для первой формы

Кнопка “Результат” вычисляет результат и выводит его на панель:

procedure TForm1.Button1Click(Sender: TObject);
var Time, Traf, Val: double;
begin
Time := StrToFloat(Edit1.Text);
Traf := StrToFloat(Edit2.Text);
Val := (C_time*Time + C_traf*Traf)*C_kurs;
Panel1.Caption := FloatToStrF(Val, ffFixed, 10, 2);
end;

Кнопка “Параметры” показывает окно второй формы:
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
end;


begin
C_time := StrToFloat(Edit1.Text);
C_traf := StrToFloat(Edit2.Text);
C_kurs := StrToFloat(Edit3.Text);
Form2.Close;
Form1.Button1.Click;
end;

Очевидно, что во второй модуль необходимо добавить указание uses
Unit1; поскольку мы обращаемся к методам класса TForm1.
Кнопка “Cancel” закрывает окно второй формы:
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form2.Close;
end;

procedure TForm2.Create(Sender: TObject);
begin
C_time := StrToFloat(Edit1.Text);
C_traf := StrToFloat(Edit2.Text);
C_kurs := StrToFloat(Edit3.Text);
end;