程序单元间的参数传入

   身份验证（GetPatientForm） 到 划价收费（TMakePriceForm）

    主要是病历号

  case  CBLB.ItemIndex of  --病人类别
    0: gErrstr :=  MakePrice(edtBlh.Text, edtXm.ReadOnly) ;
    1:  gErrstr := PubMakePriceGf(edtBlh.Text, edtXm.ReadOnly) ;
    else
     gErrstr := PubMakePrice(edtBlh.Text, edtXm.ReadOnly,EdtJBMC.Text);
  end;

划价收费（TMakePriceForm） 到 处方结算（RecipeSettlForm）

   病历号，姓名，是否自费，病人类别

RecipeSettl(aBingLiHao,aBingRenXM:string;IsZf:boolean;aBrlb:string)
利用参数读取
  RecipeSettlForm.gBingLiHao:=aBingLiHao;
  RecipeSettlForm.gBingRenXM:=aBingRenXM;
  RecipeSettlForm.gBrlb:=aBrlb;