procedure TForm1.Button2Click(Sender: TObject); begin With TModel.Load('c:\work\projects\prj1.dat') Do begin ShowMessage(PrjName); Free; end; end;