Поиск ошибки в коде

// определены переменные
var a: array[0..10] of TObject;
   // предполагается, что элементы массива "а" уже имеют какие-то значения
    b: TObject;
    // переменная "b" для временного хранения значений
 
{
  функция, выполняющая поиск необходимого объекта в массиве
  найденный объект передается через аргумент "Obj"
}
function GetObject( Name: string; var Obj: TObject ): Boolean;
var nn: Integer;
begin
 
for nn := 0 to Length(a) - 1 do
  if not(a[nn] = nil)and(a[nn].ClassName = Name) then Obj := a[nn];
 
// возвращаем TRUE, если объект найден
Result := Obj <> nil;
 
end;
 
{
  а вот часть программы, задающая условия поиска
  и выполняющая над найденными объектами какие-то действия
}
begin
 
if GetObject( 'TEdit', b ) then b.Free;
if GetObject( 'TComboBox', b ) then b.Free;
if GetObject( 'TMemo', b ) then b.Free;
if GetObject( 'TCheckBox', b ) then b.Free;
 
{ ошибка в реализации функции поиска }
 
end.

function
var
begin
end;

function
var
begin
  CallFunc (par1, procedure(par)
  var
  begin
  end;)
end;

begin

end.

  end;
end.

a: array[0..10] of TObject

function TObject.GetInterface(const IID: TGUID; out Obj): Boolean;

Pointer(Obj) := nil;

Result := Pointer(Obj) <> nil;

if GetObject( 'TEdit', b ) then b.Free;
if GetObject( 'TComboBox', b ) then b.Free;
if GetObject( 'TMemo', b ) then b.Free;
if GetObject( 'TCheckBox', b ) then b.Free;