Example of a form in Lape.

Form_Example.pas

program new;

procedure OnClick(Sender: TObject); native;
begin
  TForm(Sender).setCaption('Test 2');
end;

procedure ShowForm(); native;
var
  _Form: TForm;
  _Edit: TEdit;
begin
  _Form.Init(nil);
  _Form.setCaption('Test');
  _Form.setOnClick(OnClick);

  _Edit.Init(_Form);
  _Edit.setParent(_Form);
  _Edit.setTop(50);
  _Edit.setLeft(50);

  _Form.ShowModal();

  _Form.Free();
end;

begin
  Sync(ShowForm);
end.