unit uIShow; interface type IShowForm = interface(IInterface) ['{3A6709C6-C8A3-4CD3-A490-675EE84BC240}'] procedure ShowForm(); stdcall; end; implementation end.