1 2 3 4 5 6 7 8 9 10 11 12
{$interfaces corba} {$mode objfpc} type imyinterface = interface ['MYINTERFACE'] end; var s : string; begin s:=imyinterface; end.