type to1 = class function GetCaps1 : Longint;virtual;abstract; function GetCaps2 : Longint;virtual;stdcall; function GetCaps : Longint;virtual;stdcall;abstract; end; begin end.