listbox读取memo控件的内容并保存

有两个控件，一个listbox控件，一个memo控件，memo里面输入信息后，点击确定，把memo控件里的内容写入listbox,现在的问题就是可以写入listbox，但是重启后，listbox里面是空的，我想做的是能把写入的信息保存下来！请问该怎么做啊？
我的代码如下：
procedure TForm6.Button3Click(Sender: TObject);
var
  notice: string;
begin
  notice:=memo1.Lines.GetText;
  login.Form1.ListBox1.Clear;
  login.Form1.ListBox1.Items.Text:=notice;
end;