[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:
Bookmarks