[Проблема]Свой ProcessList через ListView

[Человек_Борща]

На форме есть:
1-на кнопка.
1-ин ListView.

ListView1:
ViewStyle=vsReport
Columns:
[0]-Process
[1]-PID
Подключен TIHelp32;

по нажатию кнопки пытаюсь вывести список процессов и передать их PID в Column[1].(хотябы последнее..).

Вот что получается:

procedure TForm1.Button1Click(Sender: TObject);
var
  Hsnapshot: THandle;
  Pe32: TProcessEntry32;
begin
ListView1.Clear;
Hsnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
Pe32.dwSize:=SizeOf(TProcessEntry32);
while Process32First(Hsnapshot,Pe32) do
begin
  with ListView1.items.add do
  begin
  SubItems.add(IntToStr(Pe32.th32ProcessID));
end;
  CloseHandle(hSnapShot);
end;
end;

Компилируется, но по нажатию кнопки, в колонку PID выводит только 0.
Что я не так делаю?

p.S. Первый раз работаю с TIHelp32, есть ли по нему справочник?
И первый раз использую ListView
В борландской справке должен быть, но я не нашёл... укажите куда копнуть...

прикрепил то что получается(+исходник). подсобите решением данной мелочи..

[raxp]

var ExeFile    : String;
    PE         : TProcessEntry32;
    FSnap,Handl: THandle;
    Item: TListItem; 
begin
 //Отслеживаем процессы
 //IF FSnap>0 Then CloseHandle(FSnap);
 FSnap:= Tlhelp32.CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 //
 PE.dwSize:= SizeOf(PE);
 if (Tlhelp32.Process32First(FSnap,PE)) Then
  Repeat
    Item := ListView1.Items.Add;
       Item.Caption := PE32.szExeFile;
       Item.SubItems.Append(IntToStr(Pe32.th32ProcessID));
   Until Not Process32Next(FSnap,PE) 
end

[Человек_Борща]

спасибо работает!