перебор компонентов формы

VahaC

Well-Known Member
10.01.2007
116
0
#1
Есть следующий фрагмент кода

Код:
procedure TForm1.FormShow(Sender: TObject);
var
i: Integer;
Ini: TIniFile;
obj: TObject;
cap, nam: String;
begin
ini:=TiniFile.Create('g:\test.vcl');
For i:=0 to Form1.ComponentCount-1 do
begin
obj:=Form1.Components[i];
if obj is TButton then
begin
nam:=(obj as TButton).Name;
cap:=(obj as TButton).Caption;
end;
ini.WriteString(Form1.Name, nam, cap);
end;
end;
в результате его выполнения выдаётся ошибка (на прикреплённом рисунке)

Подскажите что я делаю не так
 

Вложения