Calculating Group ID and Record ID

var sGroupId :string;
sGroupName :string;
begin
sGroupId := GetVariable('vGroupID');
sGroupName := GetVariable('vGroupName');
if sGroupId='' then
begin
SetVariable('vGroupID','0');
SetVariable('vGroupName',[CATEGORYNAME]);
Result:='0';
end
 else if sGroupName<>[CATEGORYNAME] then
begin
sGroupId:=IntToStr(StrToInt(sGroupId)+1);
SetVariable('vGroupID',sGroupId);
SetVariable('vGroupName',[CATEGORYNAME]);
Result:=sGroupId;
end
else
Result:=sGroupId;
end;

var sId :string;
sGroupName :string;
begin
sId := GetVariable('vID');
sGroupName := GetVariable('vGroupName1');
if (sId='') or (sGroupName<>[CATEGORYNAME]) then
begin
SetVariable('vID','1');
SetVariable('vGroupName1',[CATEGORYNAME]);
Result:='1';
end
 else
begin
sID:=IntToStr(StrToInt(sID)+1);
SetVariable('vID',sID);
Result:=sID;
end
end;