Прийдётся тебе добавить дополнительное поле или использовать классы. Если классы не хочешь - используй старый синтаксис паскаля с object. Это те же записи, только с большими возможностями. Определишь базовый абстрактный класс и виртуальную функцию WhoAmI:

TBaseClass=object
public
function WhoAmI:byte; dynamic;
end;

CMyList = object(TBaseClass)
Names: String;
ID: Integer;
public
function WhoAmI:byte; dynamic;
end;

CMyProj = object(TBaseClass)
Types: String;
ProjID: Integer;
public
function WhoAmI:byte; dynamic;
...
end;

var
MyList:^TBaseClass;
MyProj:^TBaseClass;

После этого создашь экземпляры с помощью new. Для получения кода класса просто вызывай виртуальную функцию и смотри, чё она возвращает.