Обновить ListView не снимая выделение

[Xo66um]

Доброго времени суток.
Собственно, получаю список процессов в ListView таким образом:

...
  Form1.ListView2.Items.BeginUpdate;
  ListView2.Items.Clear;
  PHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  PEntry.dwSize := SizeOf(PEntry);
  PContinue := Process32First(PHandle, PEntry);
  while Integer(PContinue) <> 0 do
   begin
    with ListView2.Items.Add do
     begin
      Caption := ExtractFileName(PEntry.szExeFile);
      SubItems.Add(PEntry.th32ProcessID);
      ...
     end;
    PContinue := Process32Next(PHandle, PEntry);
   end;
 finally
  CloseHandle(PHandle);
 end;
 Form1.ListView2.Items.EndUpdate;

Скажите, пожалуйста, можно-ли обновить ListView не снимая выделение, или вернуть выделение каким-то образом? Как в Диспетчере задач.
Заранее благодарю.

[Stilet]

...
  if ListView2.Selected<>nil then  s:=ListView2.Selected.Caption else s:='';
  Form1.ListView2.Items.BeginUpdate;
  ListView2.Items.Clear;
  PHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  PEntry.dwSize := SizeOf(PEntry);
  PContinue := Process32First(PHandle, PEntry);
  i:=0;
  while Integer(PContinue) <> 0 do
   begin
    with ListView2.Items.Add do
     begin
      Caption := ExtractFileName(PEntry.szExeFile);
      SubItems.Add(PEntry.th32ProcessID);
      ...
      if (s<>'')and(Caption=s) then i:=Index;
     end;
    PContinue := Process32Next(PHandle, PEntry);
   end;
 finally
  CloseHandle(PHandle);
 end;
 Form1.ListView2.Items.EndUpdate;
 Form1.ListView2.ItemIndex:=i;

Идея понятна?

[Xo66um]

Мысль ясна... только непонятно, почему выделение "прыгает" по списку? Как-будто в случайном порядке, и вовсе не опирается на переменную, которая содержит заголовок строки.

Допилил. Теперь выделение в порядке.
Stilet, спасибо, плюсую