{$mode objfpc} {$interfaces corba} unit uw36652; interface type TClassA = class procedure DoThis; end; implementation procedure TClassA.DoThis; begin end; end.