FindComponent ошибка

  for i := 1 to Query.RecordCount do begin
    (FindComponent('frmNewTest.edt' + IntToStr(i)) as TsEdit).Text := QueryОтвет.Value; //  Без ошибок
    if QueryПравильность.Value = 'Да' then
      (FindComponent('frmNewTest.cb' + IntToStr(i)) as TCheckBox).Checked := true;      //Ошибка
    Query.Next;
  end;

function TComponent.FindComponent(const AName: string): TComponent;
var
  I: Integer;
begin
  Result := nil;
  if (AName <> '') and (FComponents <> nil) then
  begin
    if FSortedComponents = nil then
    begin
      { Fill the sorted list (and sort it) }
      FSortedComponents := TList<TComponent>.Create;
      FSortedComponents.Count := FComponents.Count;
      for I := 0 to FComponents.Count - 1 do
        FSortedComponents[I] := FComponents[I];
 
      FSortedComponents.Sort(FComparer);
    end;
    Result := FindSortedComponent(AName, I);
  end;
end;
 
function TComponent.FindSortedComponent(const AName: string; var Index: Integer): TComponent;
var
  L, H, I, C: Integer;
begin
  L := 0;
  H := FSortedComponents.Count - 1;
  while L <= H do
  begin
    I := (L + H) shr 1;
*** Result := TComponent(FSortedComponents.List[I]);
*** C := CompareText(Result.Name, AName);
    if C < 0 then
      L := I + 1
    else
    begin
      H := I - 1;
      if C = 0 then
      begin
        Index := I;
        Exit;
      end;
    end;
  end;
  Index := L;
  Result := nil;
end;