麻烦哪位帮我把C++的翻译成DELPHI的谢谢
{
ListBox1->Clear();
IGRControlPtr pControl = GridppReport1->FindFirstControl();
while (pControl)
{
ListBox1->Items->Add(pControl->Name);

pControl = GridppReport1->FindNextControl();
}
}