این کد در ویژال بیسیک کد معادل در delphi چی میشه؟؟؟

[nima_trade]

سلام
میخواستم به جای این کد در ویژال بیسیک کد معادل در delphi چی میشه؟؟؟
لطفاً من را راهنمای کنید
لطفاً فقط سریع


Dim Ctrl As Control

For Each Ctrl In Frm
' MsgBox ctrl.Name
Next

[مهدی کرامتی]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
For i:=0 to Form1.ControlCount-1 do
ShowMessage(Form1.Controls[i].Name);
end;

نمونه برنامه ضمیمه شده است.

[nima_trade]

ممنون از رهنمیتن
حالا اگه بخواهیم نوع کنترل را بدست بیاریم باید چی کار کنیم البته تو delphi؟

البته این سؤال را باید تو بخش delphi مطرح کنم

[مهدی کرامتی]

Form1.Controls[i].ClassName