[Помидоркин]

Спасибо NumLock
Хотя вышло несколько иначе

Код:

procedure TFrmProfile.Calc(Sender: TObject);
begin
 LblResult.Caption:= FloatToStrF(CmbMetters.Value,ffFixed,8,2);
end;

Код:

procedure TCmbMetters.Click;
begin
 inherited Click;
 case ItemIndex of
  0: FValue:= 6.76 ;
  1: FValue:= 6.78;
  2: FValue:= 4.23;
 end;
 (Parent as TFrmProfile).Calc(Self);
end;