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

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.