как сохранит Tsringlist в listbox

[alman12]

у меня код такое как сохранит все в закрытие и загрузит в открытие программы

var
  Form1: TForm1;
  Persons:TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  if not Assigned(Persons) then
   Persons := TStringList.Create;
  Persons.Add(Edit1.Text + ' | ' + memo2.Text);
  Listbox1.Items.Add(Edit1.Text);

 end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if ListBox1.ItemIndex>-1 then begin
  Persons.Delete(ListBox1.ItemIndex);
  ListBox1.Items.Delete(ListBox1.ItemIndex);
 end;
end;


procedure TForm1.ListBox1Click(Sender: TObject);
var x : integer;
begin
Memo1.Text := 'name '+ Persons[Listbox1.ItemIndex];
x:= 1 + (listbox1.ItemIndex);
label1.Caption:='N_ '+inttostr(x);

end;

end.

[XE5]

Шоу экстрасенсов вновь открыто.

[alman12]

Сообщение от XE5

Шоу экстрасенсов вновь открыто.

ты экстрасенсор

[Stilet]

У Listbox1.Items и Memo1.Lines есть два метода:
SaveToFile - Сохранит содержимое файлов
LoadFromFile - Загрузит из файла
Вот их и используй: Первый в OnClose второй в OnCreate

[alman12]

кто может помогите пожалуста

[XE5]

alman12 А стилет тебе не помог? Продолжаем шоу?

[alman12]

Сообщение от XE5

alman12 А стилет тебе не помог? Продолжаем шоу?

я не смог сделать

[XE5]

alman12 Ну да. Для этого же нужно уметь программировать, а не только копировать/вставлять.

[Stilet]

я не смог сделать

Настолько не смог, что даже показать попытки стыдно?

[alman12]

Сообщение от Stilet

Настолько не смог, что даже показать попытки стыдно?

кто может помогите