program Test;

uses
KOL,windows;

type
PForm1 = ^TForm1;
TForm1 = object(TObj)
  Form, Button: PControl;
public
  procedure ButtonClick(Sender: PObj);
end;

var
Form1: PForm1;

procedure NewForm1(var Result: PForm1; AParent: PControl);
begin
New(Result,Create);
with Result^ do
begin
  Form := NewForm(AParent,'Form1').SetSize(240,240);
  Button := NewButton(Form,'Test').CenterOnParent;
  Button.OnClick := ButtonClick;
end;
end;

procedure TForm1.ButtonClick(Sender: PObj);
var a:integer;
     function EnumWindowsError(H:Hwnd;L:LParam):Bool;stdcall;
     begin
     showmessage(int2str(a));//а тут =46
     Result:=false;
     end;
begin
a:=10;
showmessage(int2str(a));//тут =10
EnumWindows(@EnumWindowsError,0);
showmessage(int2str(a));//тут опять =10
end;

begin
Applet := NewApplet('Test');
NewForm1(Form1,Applet);
Run(Applet);
end.