DBComboBox Urgente ajudem-me por favor

Delphi1 Estou fazendo um cálculo onde tenho 3 DBEdit e DBComboBx No DBCombox entrarei com tres letras que correspondera cada uma a um valor, para facilitar o usuário a nao ter que ficar digitando um monte de números e assim acabar errando também. Mas quando seleciono a letra do DBComboBox, ele só faz a multiplicação dos DBEdit do DBCombo não, porque? Estou enviando a minha rotina, se alguém puder olhar e me dizer aonde estou errando, obrigado. G = 0,0001 MG = 0,00001 MCG = 1 procedure TFormCadProd.BotaoOKClick(Sender: TObject); Var P, Fat, Q, UP, PF : Real; G, MG, MCG : string; begin G := IntToStr(0,001); P := StrToFloat(DBEditPeso.Text); Fat := StrToFloat(DBEditFator.Text); Q := StrToFloat(FormInclusao.DBEdit1.Text); UP := StrToFloat(DBEditUnid.Text); PF := (P*Q*Fat*UP); DBEditFinal.Text := FormatFloat(´#.00000´,PF); If DBComboGrama.Text = G then PF := (P*Q*Fat*UP*3);