Lista de procesos de mi ordenador

[Reinery]

bueno estu mirando y cambien lo que tenia.
ya no me da el error
pero no me sale los nombre de los procesos

while (Process32Next(foto, &datos)!=0)
{

Form1->ListView1->AddItem(IntToStr(datos.th32ProcessID),NULL);
Form1->ListView1->Items->Item[r]->SubItems->Add(".EXE");

r++;
}