Ошибка при компиляции проекта

  TMyClass = class
    function GetVal<T: class>(Source: TListBox): TList<T>;
  end;

function TMyClass.GetVal<T>(Source: TListBox): TList<T>;
var
  I: Integer;
  values : TList<T>;
begin
  Result:= nil;
  if (not Assigned(Source)) then Exit;
  values := TList<T>.Create();
  try
    for I := 0 to (Source.Items.Count - 1) do
      begin
       values.Add(T(Source.Items.Objects[I]));
      end;
  except end;
  Result:= values;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Q: TMyClass;
begin
  Q := TMyClass.Create;
  {какой-то список := }Q.GetVal<TButton>(ListBox1);
  FreeAndNil(Q);
end;

as T

function TMyClass.GetVal<T>(Source: TListBox): TList<T>;
var
  I: Integer;
  values : TList<T>;
begin
  Result:= nil;
  if (not Assigned(Source)) then Exit;
 
  try
    values := TList<T>.Create();
    for I := 0 to (Source.Items.Count - 1) do
      values.Add(T(Source.Items.Objects[I]));
  finally
    FreeAndNil(values);
  end;
 
  Result:= values;
end;

function TMyClass.GetVal<T>(ASource: TListBox; out AList: TList<T>): Boolean;
var i: Integer;
begin
 
  Result := False;
 
  if not Assigned(ASource) then Exit;
 
  for i := 0 to ASource.Items.Count - 1 do
    AList.Add(T(ASource.Items.Objects[i]));
 
  Result := AList.Count > 0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var Q: TMyClass;
    L: TList<TButton>;
begin
  Q := TMyClass.Create;
 
  L := TList<TButton>.Create;
  if Q.GetVal<TButton>(ListBox1, L) then чота там;
 
  // только еще где-то и все кнопки из списка удалить надо будет вручную из ListBox
  // тут ведь только ссылки затрутся.. Хотя может удаление где-то и происходит, но думаю что врятли, с таким подходом то...
 
  FreeAndNil(L);
  FreeAndNil(Q);
end;

function TMyClass.GetVal<T>(ASource: TListBox; out AList: TList<T>): Boolean;
var i: Integer;
begin
 
  Result := False;
 
  if not Assigned(ASource) then Exit;
 
  for i := 0 to ASource.Items.Count - 1 do
    begin
      // если это является нужным типом объекта, то только тогда запихивать в список
      // иначе будет рано или поздно AV, если будет недопустимый к преобразованию тип
      if ASource.Items.Objects[i] is T then
        AList.Add(ASource.Items.Objects[i] as T);
    end;
 
  Result := AList.Count > 0;
end;

function GetVal<T>(Source: TListBox): TArray<T>
var
  values : TList<T>;
begin
  ...
  Result:= values.ToArray;
  values.Free;
end;