С помощью скрипта, при перемножении 2 полей, ответ отобразить в 3 поле

Подскажите, как задать условие чтоб при перемножении 2 полей ответ отобразить на 3 поле:

procedure CalculateCourse;
begin
if Payment.Edit1.Value > 0
then Payment.Edit4.Value := Payment.Edit1.Value * Payment.Edit2.Value;
end;

procedure Payment_sumPayment_onChange (Sender: string);
begin
CalculateCourse;
end;

procedure Payment_course_onChange (Sender: string);
begin
CalculateCourse;
end;

begin

end.