unit CustomScript; interface procedure Start(); implementation

procedure MyProc();
begin
 while true do
  begin
   print('rrr');
   delay(1000);
	end;
end;

procedure Start();
begin
	// example
 //Script.NewThread(@MyProc);
end;

end.