Program XXX;
{$ifdef FPC} {$APPTYPE GUI} {$endif}
{$R allres.res}

uses windows,kol;

type
  TSDK_0 = object
    private
      frm2:PControl;
      btn3:PControl;
      
      procedure btn3_onClick(Obj:PObj);
    public
      
  end;

procedure TSDK_0.btn3_onClick;
begin
  MessageBox(frm2.Handle, PChar(555), PChar('hiasm msg'), MB_OK);
  MessageBox(frm2.Handle, PChar(555), PChar('hiasm msg'), MB_OK);
  MessageBox(frm2.Handle, PChar(555), PChar('hiasm msg'), MB_OK);
end;

var
  SDK_0:TSDK_0;

begin
  with SDK_0 do begin
    Applet := NewApplet('');
    frm2 := NewForm(Applet,'Form');
    frm2.width := 300;
    frm2.height := 200;
    btn3 := NewButton(frm2, 'Btn');
    btn3.left := 10;
    btn3.top := 10;
    btn3.onClick := btn3_onClick;
    Run(Applet);
  end;
end.