Projekt -> Optionen: Build-Nr. autom. setzen anhand eines Schemas

[juergen]

Hallo,

so, ich habe den spannenden Ansatz von Delphi.Narium versucht umzusetzen.

Delphi-Quellcode:

PROCEDURE TBeforeCompile.BeforeCompile( CONST Project: IOTAProject; IsCodeInsight: Boolean; VAR Cancel: Boolean );
VAR
  // sl: TStringList;
  lw_my_Build_Number: Word;
BEGIN
  IF NOT IsCodeInsight THEN
  BEGIN
    lw_my_Build_Number := StrToIntDef( FormatDateTime( 'YY', Now ) + RightStr( '0' + IntToStr( WeekOfTheYear( Now ) ), 2 ) + IntToStr( DayOfTheWeek( Now ) ), 11111 );
    Project.ProjectOptions.Values['Build'] := lw_my_Build_Number;
    Project.ProjectOptions.ModifiedState := True;

    ShowMessage( 'Before_Compile_erfolgreich    ' + IntToStr( lw_my_Build_Number ) );
  END;
END;

Package installiert. Alles OK.

Wenn ich jetzt ein Projekt compiliere, schlägt auch die Message "Before_Compile_erfolgreich 21404" auf! Bis hierhin sieht für mich also alles in Ordnung aus.
Leider steht in der Build-Nummer nicht mein Wert, sondern noch der zu vorige, alte Wert.

Hat da noch jemand eine Idee warum das Setzen der Build-Number nicht funktioniert?