Освобождение памяти

[AlexandrSid]

Подскажите что не так.
Выдает ошибку на Dispose(buff)

var
  buff:pointer;
begin
vP:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
  p.dwSize:=sizeof(PROCESSENTRY32);
  Process32First(vP,p);
  while Process32Next(vP,p) do begin
    prH:=OpenProcess(PROCESS_ALL_ACCESS,false,p.th32ProcessID);
    if prH=0 then continue;
    OpenProcessToken(prH,TOKEN_QUERY,th);
    if th=0 then continue;
    buff:=HeapAlloc(GetProcessHeap,0,256);
    if not GetTokenInformation(th,TokenUser,buff,256,RL) then continue;
    sid:=SID_AND_ATTRIBUTES(buff^);
    s:=256;
    s1:=256;
    s2:=SidTypeUser;
    if not LookupAccountSid(0,sid.Sid,@_user,s,@_domain,s1,s2) then
      continue;
    RichEdit.lines.add(p.szExeFile+' - '+_user);
    CloseHandle(th);
    CloseHandle(prh);
  end;
  CloseHandle(ct);
dispose(buff);
end;

[rpy3uH]

Освобождай через HeapFree

[AlexandrSid]

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

[_Engine_]

А CloseHandle(vP) кто будет вызывать?