program project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, Unit1, FileInfo { you can add units after this }; {$R *.res} Var FileVersionInfo: TFileVersionInfo; begin Application.Title:='SELaunch'; RequireDerivedFormResource := True; Application.Initialize; FileVersionInfo:= TFileVersionInfo.Create(nil); FileVersionInfo.ReadFileInfo; Application.CreateForm(TMainForm, MainForm); MainForm.Caption:= 'SELauncher2 V:' + FileVersionInfo.VersionStrings.Values['Fileversion']; FileVersionInfo.Free; Application.Run; end.