gui/brodnet.lpr

   1 program brodnet;
   2
   3 {$mode objfpc}{$H+}
   4
   5 uses
   6   Classes,fpg_main,Forms1;
   7
   8 procedure MainProc;
   9 var frm:tFormRoot;
  10 begin
  11   fpgApplication.Initialize;
  12   frm:=tFormRoot.Create(nil);
  13   fpgApplication.MainForm:=frm;
  14   try
  15     frm.Show;
  16     fpgApplication.Run;
  17   finally
  18     frm.Free;
  19   end;
  20 end;
  21
  22 begin
  23   MainProc;
  24 end.
  25
  26