Exportar items de un TListBox del siguiente modo?

[Axel_Tech]

Lo que yo he entendido es que necesita separar en 2 partes cada Item del ListBox para luego meterlo en el Memo, es decir coger lo que hay a un lado y a otro del carácter '/'.
Si es así creo que algo como esto podría valer:

Código Delphi [-]
string1 := AnsiLeftStr(ListBox1.Item[i], AnsiPos('/', ListBox1.Item[i]) - 2);
string2 := AnsiMidStr(ListBox1.Item[i], AnsiPos('/', ListBox1.Item[i]) + 2, Length(ListBox1.Item[i]) - AnsiPos('/', ListBox1.Item[i]));

*Nota: i sería el índice del Item del ListBox.