type
Tmtype=record
mytype:Tclass;
a:integer;
b:string;
...
end;