todo_complete_ui.pas

procedure TFrmMain.BtnSaveClick(Sender: TObject);
begin
  inherited;
  Memo1.Lines.Add('Saving...');
  Memo1.Lines.Add(TTodoProgSettings.GetSettingsFolder);
  Memo1.Lines.Add(TTodoProgSettings.GetDefaultSettingsFilename);

  Todos.Name := 'test me';
  TTodoProgSettings.SaveTodos(Todos);
end;

procedure TFrmMain.FormCreate(Sender: TObject);
var
  ItemTodo: TItemTodo;
begin
  inherited;
  Todos := TListTodo.Create;

  ItemTodo := TItemTodo.Create('First things to do in AM', False);
  Todos.Todos.Add(ItemTodo);

  ItemTodo := TItemTodo.Create('last thing to do in the PM', False);
  Todos.Todos.Add(ItemTodo);

  Memo1.Lines.Add(Todos.ToString);
end;

procedure TFrmMain.BtnLoadClick(Sender: TObject);
begin
  inherited;
  Memo1.Lines.Add('Loading...');
  Memo1.Lines.Add(TTodoProgSettings.GetSettingsFolder);

  Todos := TTodoProgSettings.LoadTodos();
  Memo1.Lines.Add(Todos.Name);
end;