{Typeof.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the TypeOf function.}

  procedure GraphicalObject.Move;
 begin
   { Distinguish between derived types
    (subclasses) when moving}
   if TypeOf(Self) = TypeOf(ScrWindow) then
     { Take special action if moving a window}
   else
     { Take a different action otherwise}
  end;