C的代码转换成delphi代码

C的代码转换成delphi代码
是一段C 取句柄的代码。帮忙翻译成delphi 的。。。感激不尽

void __stdcall CrnGetStatusBarItem(HANDLE hStatusBar, TStrings *pList)
{
    DWORD dwProcessID;
    HANDLE hProcess;
    LPVOID lpCommon;
    int nAllocSize = 255;
    int nPnlLen;
    char szBuf[255];
    DWORD dwBytesRead;
    int nPnlCount = SendMessage(hStatusBar, SB_GETPARTS, 0, 0);
    pList->Add("StatusBar的项目数: " + String(nPnlCount));

    GetWindowThreadProcessId(hStatusBar, &dwProcessID);
    hProcess = OpenProcess(PROCESS_VM_OPERATION | PROCESS_VM_READ |
            PROCESS_VM_WRITE, false, dwProcessID);
    lpCommon = VirtualAllocEx(hProcess, NULL, nAllocSize,
            MEM_RESERVE | MEM_COMMIT, PAGE_READWRITE);

    for(int i=0; i <nPnlCount; i++)
    {
        SendMessage(hStatusBar, SB_GETTEXT, i, LPARAM(lpCommon));
        ReadProcessMemory(hProcess, lpCommon, szBuf, 255, &dwBytesRead);
        pList->Add(szBuf);
    }
    VirtualFreeEx(hProcess, lpCommon, 0, MEM_RE