[MotoArhangel]

Есть два класса необходимо передать результаты выполнения функции из одного класса в другой.
Вот классы:

Код:

  TProcessInfo=class
  var
    IsWow64Process: TIsWow64Process;
    QueryFullProcessImageNameW : TQueryFullProcessImageNameW;
  private
    Function Getpriority(id:THandle):string;
    Function GetProcessFilePath(PID: Cardinal; Var x64_x86, UserName : String): String;
    procedure Create;
  end;

 type
    TStatistic = class
    var
      procentry:  TProcessEntry32;
    public
      procedure SetProcessInfo(procinfogrid:TStringGrid);
 end;

Как понимаю так нельзя:

Код:

   with procinfogrid do
                            begin
                              if k>rowcount-1 then
                                rowcount:=rowcount+1;
                                cells[0,k]:= ProcessExe;
                                cells[1,k]:= inttostr(procentry.th32ProcessID);
                                cells[2,k]:= inttostr(procentry.cntThreads);
                                cells[3,k]:= TProcessInfo.GetPriority(procentry.th32processid);
                                cells[4,k]:= x86_x64;
                                cells[5,k]:= UserName;
                                if (Cells[5,k]='') then
                                  Cells[5,k]:='<Нет прав администратора>';
                                cells[6,k]:= ProcessName;
                                if (Cells[6,k]='') then
                                  Cells[6,k]:='<Нет прав администратора>';
                            end;

Интересует строка

Код:

 cells[3,k]:= TProcessInfo.GetPriority(procentry.th32processid);

Дайте ссылочку на полезную статью. Да и от помощи бы не отказался.