ComboBox

Delphi1 Olá tenho uma rotina com comboBox e preciso colocar mais um, mas preciso que ele faça o seguinte cálculo. Se for MG/G = Q*P/Fat Se for ¬ = Q*P/Fat*100 Como é que eu faço, porque tentei mas nao funciona o segundo ComboBox. Se alguem puder escrever para mim como faço ficarei muito grato. A minha rotina é: procedure TFormCadProd.BotaoOKClick(Sender: TObject); Var X, P, Fat, Q, PF : Real; begin P := StrToFloat(DBEditPeso.Text); Fat := StrToFloat(DBEditFator.Text); Q := StrToFloat(FormInclusao.DBEdit1.Text); X := 1; If ComboBox.text = ´G´ Then X := 1; If ComboBox.Text = ´MG´ Then X := 0.001; If ComboBox.text = ´MCG´ Then X := 0.000001; If ComboBox.text = ´´ Then X := 1; PF := ( P * Fat * Q* X ); DBEditFinal.Text := FormatFloat( ´#0.0000000´, PF ); end;