那位会c++，翻译为lazarus for wince

tsp_1030

CLSID pCLSID[5];
CString pName[5];
int i=0;
int SipEnumIMProc(IMENUMINFO *pIMInfo)   
{   
pCLSID=pIMInfo->clsid;   
pName=pIMInfo->szName;
i++;   
return 1;   
}
void Ctest2Dlg::OnBnClickedButton4()
{
// TODO: 在此添加控件通知处理程序代码//SipSetCurrentIM(&pCLSID[2]);
int aa=SipEnumIM(SipEnumIMProc);
for (int i=0;i<5;i++)
{
MessageBox(pName);
}
}