ListView i SendMessgae

Witam.
Wydaje mi się że drugi raz to piszę. No ale dobra. Czy wie ktoś jak dodać do ListView Text za pomocą SendMessage.
Dodatkowo powiem że ListView jest w stylu vsReport i jest tworzone w IDE. a poza tym to mam trzy kolumny.

Problem jest w tym, że to TListView z IDE nie jest całkiem zgodne z tym ListView z WinAPI.

W WINAPI powinno wyglądać to tak:

var lvi:LV_ITEM;
begin
ZeroMemory(@lvi, sizeof(lvi));
lvi.mask:=LVIF_TEXT or LVIF_PARAM;
lvi.pszText:='Text1';
SendMessage(ListView1.Handle, LVM_INSERTITEM, 0, integer(@lvi));
lvi.mask:=LVIF_TEXT;
lvi.pszText:='Text2';
lvi.iSubItem:=1;
SendMessage(ListView1.Handle, LVM_SETITEM, 0, integer(@lvi));
//..
end;

Aby upewnić się, jak powinno wyglądać w środowisku Delphi, polecam przejrzeć unit ComCtrls.