1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  IMyFunctions = interface
  function SetupTable(iNumber : integer) : LongInt;
end;
{...}
bSup : boolean;
MyFunctions : IMyFunctions;

bSup := Supports ('Table.dll', IMyFunctions, MyFunctions);
ShowMessage (booltostr(bSup));