В Program.pas создайте статическую основную форму win следующим образом:
Program = assembly static class
private
class method OnThreadException(sender: Object; e: ThreadExceptionEventArgs);
public
class var lMainForm:MainForm;
class method Main(args: array of string);
end;
В методе Main выполните следующие действия:
[STAThread]
class method Program.Main(args: array of string);
begin
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.ThreadException += OnThreadException;
lMainForm := new MainForm;
Application.Run(lMainForm);
end