type
ILjnShow=Interface
procedure ShowText(S:String);stdcall;
end;

TLjn1=class(TInterfacedObject,ILjnShow)
protected
public
procedure ShowText(S:String);stdcall;
end;

var
Ljn1:TLjn1;
begin
Ljn1:=TLjn1.Create;
try
....
finally
Ljn1.Free; <---这样做，D7会说释放了一个不存在的指针。但如果不做，这个对象没释放，会不会内存泄露？
end;