Como assim não funciona ?
String só aceita texto.
Word só aceita números.
Você converteu para texto -> lista2 := IntToStr(lista5);