Определение реального класса

[megachuhancer]

Есть ли какой-нибудь способ внутри метода узнать метод какого конкретного класса вызывается? Например, у меня есть класс TBasicClass и в нём метод Method. И куча классов-потомков TDerivativeClass1, TDerivativeClass2... Есть массив типа TBasicClass или просто переменная типа class of TBasicClass. Осуществляется вызов типа a[i].Method или ClOfB.Method. Как узнать внутри метода(в потомках метод не перекрыт), метод какого именно класса вызван?

[JTG]

procedure TBasicClass.Method;
begin
  ShowMessage(self.ClassName);
end;

[megachuhancer]

Отлично, работает. Спасибо.