With TModel.Create Do begin PrjName := 'Project1'; For I := Low(Sources) To High(Sources) Do Sources[i] := Random(10); SaveToFile('c:\work\projects\prj1.dat'); Free;