program MakeBuildInfo;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.Classes,
  System.SysUtils;

var
  StrList: TStringList;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    StrList := TStringList.Create;

    StrList.Add('unit BuildInfo;');
    StrList.Add('');
    StrList.Add('interface');
    StrList.Add('');
    StrList.Add('const');
    StrList.Add('  BUILD_DT = ''' + FormatDateTime('yyyy-mm-dd hh:nn:ss', Now) + ''';');
    StrList.Add('');
    StrList.Add('implementation');
    StrList.Add('');
    StrList.Add('end.');

    StrList.SaveToFile('C:\taskToCSG\eCrmHE\EXE_eCrmHomeEdition\BuildInfo.pas', TEncoding.UTF8);

    StrList.Free;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.