[roman]

¿Y si intentas esto?

Código Delphi [-]
function TSocioList.GetItems(index:integer):TSocio;
begin
  Result := TSocio(FSocios[index]);
end;

// Saludos