Пример несколько изменён, по сравнению с оригинальным. Но делает, практически всё тоже самое.

module Main;
import System, 
  System.Windows.Forms as Формы;
 
type {public, ref} 
  тФормаГлав = object implements Формы.Form
  var {public}
    кнпВыход : Формы.Button;
 
  procedure {public} актВыход ( отправ_:object; арг_: System.EventArgs);
  begin
    Формы.Application.Exit;
  end актВыход ;
 
  procedure Добавить_кнпВыход;
  begin
    кнпВыход := new Формы.Button;
    кнпВыход .Text := "Выход";
    кнпВыход .Left := Width - кнпВыход .Width - 50;
    кнпВыход .Top := Height - кнпВыход .Height - 50;
    кнпВыход .add_Click(актВыход);
  end Добавить_кнпВыход;
 
  begin
    Text := "Моё Zonnon Windows приложение";
    Width  := 420;
    Height := 240;
    Добавить_кнпВыход;
    Controls.Add(кнпВыход );	
    Update;
    CenterToScreen;
    end тФормаГлав;    
 
 
var 
  фрмГлавная: тФормаГлав;
begin
  фрмГлавная := new тФормаГлав; 	
  Формы.Application.Run(фрмГлавная);
end Main.