unit Persist.GameList; interface uses Game.List; type TGameListPersist = class(TObject) public class procedure Load(const AFileName: string; AList: TGameList); end; implementation uses System.SysUtils; { TGameListPersist } class procedure TGameListPersist.Load(const AFileName: string; AList: TGameList); begin if not FileExists(AFileName) then exit; end; end.