Fórum Ajudem-me por favor URGENTE #149334

tenho a seguinte 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;

Preciso incluir mais um ComboBox que irá ter duas opções MG/G e ¬
Se for escolhido MG/G (Q*P*X/Fat)
Se for escolhido o ¬ (Q*P*X/Fat)*100

como que eu faço, se souber e puder me ajudar, obrigado. [quote:ecfbc5e690][/quote:ecfbc5e690]