Класс TControl

[avd]

Создал компонент на основе TGraphicControl

  TKaka = class(TGraphicControl)
  private
    fOpa: byte;
...
  published
    property Opa: byte read fOpa write fOpa;

Кинул его на форму и далее ...

  for i := 0 to Form1.ControlCount - 1 do
  begin
    if Form1.Controls[i].ClassName = 'TKaka' then
    begin
      sTmp := IntToStr(Form1.Controls[i].Top); // Работает
// Хочу получить значение свойства Opa
      sTmp := IntToStr(Form1.Controls[i].Opa); // Ошибка
    end
  end;

Объясните в чем моя ошибка.

[Аватар]

if Form1.Controls[i] is TKaka then sTmp := IntToStr(TKaka(Form1.Controls[i]).Opa);

[avd]

Спасибо! Так работает!
Правда я не совсем понял вот это:

TKaka(Form1.Controls[i]).Opa

Надо осмыслить.

[Stilet]

Это приведение типов. Сонтрол[i] указывается как Кака чтоб можно было работать с его свойствами.