Solução 1:
Declare uma integer
tsf : integer;
...
tsf := lista5;
showmessage(inttostr(tsf));

Solução 2:
Ao invés de declarar word declare integer

lista5 : integer;



acho meçhor a solução 2