麻烦哪位帮小弟我把C++的翻译成DELPHI的多谢

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

pControl = GridppReport1->FindNextControl(); 
} 
}