12345678910111213141516171819202122 |
- program avtokanal;
-
- {$mode objfpc}{$H+}
-
- uses
- {$IFDEF UNIX}{$IFDEF UseCThreads}
- cthreads,
- {$ENDIF}{$ENDIF}
- Interfaces, // this includes the LCL widgetset
- Forms, Unit1, httpsend, synacode, synafpc, synaip, synaser, synautil, synsock,
- blcksock;
-
- {$R *.res}
-
- begin
- Application.Title:='АРК Томск';
- RequireDerivedFormResource := True;
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
- end.
-
|