program DIO; uses Forms, DIOu in 'DIOu.pas' {MainFrm}; {$R *.RES} begin Application.Initialize; Application.Title := 'DIO Sample'; Application.CreateForm(TMainFrm, MainFrm); Application.Run; end.