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.