function TRFParamsCash.FindbyNameorCreate(RFName:string; bNeedCreate:boolean=true):TRFValuesList;
var i:integer;
begin
 Result:=nil;
 if Assigned(fLastRTList)and (fLastRTList.RFName=RFName)
     then begin Result:=fLastRTList;
                exit;
          end;

 for i:=0 to Count-1 do
  if ((Items[i] as TRFValuesList).RFName=RFName)
    then begin Result:=Items[i] as TRFValuesList;
               fLastRTList:=Result;
               exit;
         end;

 if bNeedCreate
   then begin Result:=TRFValuesList.Create;
              Result.RFName:=RFName;
              Add(Result);
              fLastRTList:=Result;
        end;
end;