Jarak

procedure TFKJW.Button7Click(Sender: TObject);
Var a,b: Real;
begin
  a:=StrToFloat(EDit2.Text);
  b:=StrToFloat(EDit3.Text);
  If (ComboBox6.ItemIndex=0) And
    (ComboBox5.ItemIndex=0) then
    Begin
      Label14.Caption:=FloatToStr(a*b) + ' Km' ;
    End
  Else If (Combobox6.ItemIndex=0) And
    (ComboBox5.ItemIndex=1) then
    Begin
      Label14.Caption:=FloatToStr(a*(b/60)) + ' Km' ;
    End
  Else If (Combobox6.ItemIndex=0) And
    (ComboBox5.ItemIndex=2) then
    Begin
      Label14.Caption:=FloatToStr(a*(b/3600)) + ' Km' ;
    End
  Else If (Combobox6.ItemIndex=1) And
    (ComboBox5.ItemIndex=0) then
    Begin
      Label14.Caption:=FloatToStr((a/100)*b) + ' Km' ;
    End
  Else If (Combobox6.ItemIndex=1) And
    (ComboBox5.ItemIndex=1) then
    Begin
      Label14.Caption:=FloatToStr((a/100)*(b/60)) + ' Km' ;
    End
  Else If (Combobox6.ItemIndex=1) And
    (ComboBox5.ItemIndex=2) then
    Begin
      Label14.Caption:=FloatToStr((a/100)*(b/3600)) + ' Km' ;
    End;
end;