How to delete records from udf

I tried to delete records from udf through function. But it is deleting the company itself. Kindly help.

 

[Function:Empregisterdel]
Parameterregno
01:new object:company:##svcurrentcompany
02:walk:Emp_aggr_Regno
03:if:$Emp_Regno=##pregno
04:set target
05:delete target
06:end if
07:end walk

I am calling the function from a button click. Pls see below
[Button:regnodelete]
Title: delete emp
Key: Alt+D
Action:call: Empregisterdel:#Uregno

Button is attached to a form.
Form is under a report.
In report object is company.

[System:udf]
Emp_aggr_Regno: aggregate:8000
Emp_Regno: number:8001
Emp_Name: string:8002
Emp_Designation:8003

I am new to tdl programming
Kindly help

 

[ButtonelAll]
Title:$$LocaleString:"Delete All"
Key:Ctrl + X
Action:Multi Field Set:Emp_Regno, Emp_Name, Emp_Designation : 0
Inactive:Not $$InAlterMode
Scope:All Lines

 

Doesn't work. Kindly give function commands.

 

if you want to delete from aggrigate then use delete collection objct

if from normal udf then can use reset value or Setvalue:""

 

Its working for me.
Thank you.