[snegok]

причём находясь в "unit Objects" я могу получать тип объекта под интерфейсом таким образом:

Код:

CurrData: IData;
CurrBlock: IBlock;
CurrLine: ILine;
for i:=0 to Programm.Count-1 do begin
    // получить интерфейс из TInterfaceList
    CurrData := Programm.Items[i];

    // получить интерфейс ILine
    if CurrData is TLine then
      CurrLine := ILine(CurrData)

    // получить интерфейс IBlock
    else if CurrData is TBlock then
      CurrBlock := IBlock(CurrData);
    ...

но что делать если я нахожусь в другом юните (не в unit Objects),
там не будет видно объектов, а только их интерфейсы.
как различать их ?