Was mache ich falsch?

[sakura]

Zwei Änderungen:

Code:

constructor TTest.Create; 
var 
  i: Integer; 
begin 
  [color=#1100ff]// einfügen
  inherited;[/color]
  for i := 0 to 4 do 
  begin 
    FEmployment[ i ].FWorkInstruction := ''; 
    FEmployment[ i ].FDuration := 0; 
    FEmployment[ i ].FDepartment := ''; 
  end; 
  FEmployment[ 0 ].FWorkInstruction := 'Test'; 
end; 


// und
// anstatt
Monatg.Create
// musst Du folgendes schreiben:
[color=#1100ff]Montag := TTest.Create;[/color]

......