نگهداری یک مقدار string در خصوصیت data مربوط به listview item

کد زیر یک مقدار integer رو در data قرار میده

LI := listview1.Items.Add;
LI.Data := Pointer(1234);
LI.caption := 'test';
LI.ImageIndex := 1;
MyNode := listview1.Selected;
if Assigned(LI) then
begin
MyData := Integer(LI.Data);
end;

وقتی بک مقدار string در کد بالا قرار میدم خطا میگیره

لطفا راهنمایی بفرمایید چگونه یک string رو در data قرارداده و به آن دسترسی داشته باشیم