typeof.pas

 {Typeof.PAS}
 
 { Пример программы для функции TypeOf }
 
 Procedure GraphicalObject.Move;
 Begin
  { В зависимости от типа полученного значения, }
  If TypeOf(Self) = TypeOf(ScrWindow) Then
  { выполняем специальное действие, если перемещаем окно, или }
  Else
  { если нет, то другое действие }
 End;