مشکل در اضافه کردن آیتم در Listview (با API)

[Veyskarami]

سلام
یه پروسیجر نوشتم که با گرفتن هندل ListView و 3 تا ورودی، اونا رو به Listview اضافه میکنه
حالا مشکل اینه که برنامه در حین اضافه کردن آیتم ها به ارور میخوره ولی در نهایت آیتم ها رو اضافه میکنه میخواستم بدونم مشکل از کجاست؟
اینم کد برنامه



procedure AddItem(Listview: HWND; T1,T2,T3:Pchar);
var
lvi : TLVItem;
begin
lvi.mask := LVIF_TEXT or LVIF_IMAGE;
lvi.iItem := 0;
lvi.iSubItem := 0;
lvi.pszText := T1;
ListView_InsertItem(Listview,lvi);
lvi.mask := LVIF_TEXT;
lvi.iSubItem := 1;
lvi.pszText := T2;
ListView_SetItem(Listview,lvi);
lvi.mask := LVIF_TEXT;
lvi.iSubItem := 2;
lvi.pszText := T3;
ListView_SetItem(Listview,lvi);
end;

---------------------


AddItem(s.Handle,'1','2','3');

خود برنامه رو هم ضمیمه کردم که اگه دوستان خواستن کمک کنن راحت تر مشکل رو متوجه بشن.
ممنون