[pascal]
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a: TObject;

begin
a := TObject.Create;
if a.ClassType = TObject then
writeln('a is an object!');
readln;
end.[/pascal]

This seems ok to me

Edit: BTW I'm not sure if it is what you need :scratch: