TempList := TStringList.Create;
          aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
          aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
          bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
          while Integer(bContinue) <> 0 do
          begin
            TempList.Add(ExtractFileName(aProcessEntry32.szExeFile)+'|'+IntToStr(aProcessEntry32.th32ProcessID));
            bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
          end;
          TempList.Sort;
          ....
// Benutzung der Liste
          ....
          CloseHandle(aSnapshotHandle);
          TempList.Free;