Program Project1(Input, Output, StdErr);
{$Mode Objfpc}{$H+}
{$Typedaddress On}
Uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
CThreads, Unix,
{$EndIF}{$EndIF}
Classes, SysUtils,
{ you can add units after this }
{$IFDEF WINDOWS}
Windows, Dos, LCLIntF, MMSystem, LazUTF8,
{$EndIF}
FileUtil, Process, StrUtils, LazLoggerBase, DateUtils, Math, CustApp,
Character,
VInfo, VersionTypes,
Config, AnalyzeParameters, Token;
Type
{ TMain }
TMain = class(TCustomApplication)
Protected
Procedure DoRun; Override;
Public
...
Var
Application: TMain;
{$R *.res}
Begin
Application:=TMain.Create (Nil);
Application.Title:='Playlist Program';
Application.Run;
Application.Free;
End.