Some todo.
[brdnet.git] / gui / brodnet.lpr
blob83e9adf2ba62c5580803b1bf71fd98f1826bb165
1 program brodnet;
3 {$mode objfpc}{$H+}
5 uses
6   Classes,fpg_main,Forms1;
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;
22 begin
23   MainProc;
24 end.