Подскажите пожалуйста, как каждому объекту класса из списка назначить свою процедуру

[Pavia]

TRegister.Addreg

Так обращаться без указания объекта можно только к классным методам.
Добавьте служебное слово class.

class procedure CreateReg;
 class procedure AddReg();
 class procedure DelReg();