[Neftali [Germán.Estévez]]

Puedes usar un String.
Debería bastar con esta línea antes

Código Delphi [-]
  StringLista :=  ListBox1.Items.Text;

Y esta después para restaurar:

Código Delphi [-]
  ListBox1.Items.Text := StringLista;