%% Comment=Demo procedure with cleanup.
%% ProcName=DemoCleanup
%% ProcArgs=arg:String
{
%Comment%
}
procedure %ProcName%(%ProcArgs%);
var s:String;
 procedure Cleanup;
 begin
  s:='';
 end;
begin
 Cleanup;
 {}
 Cleanup;
end;
