program InterfaceTest;
uses Windows;

type

IMyInterface = interface
 ['{DF34FD7A-2921-4028-A894-BFE0895D5783}']
 procedure proc1; stdcall;
end;

IMyInterfaceEx = interface(IMyInterface)
  ['{923D24C4-65E8-46FF-8E7F-64D2C1B30F95}']
  procedure procex; stdcall;
end;

// Зарезервированные слова типа Class, стараюсь не использовать.
TMyClass = class(TInterfacedObject, IMyInterfaceEx)
public
  procedure proc1; stdcall;
  procedure procex; stdcall;
end;


var a: TMyClass;


{ TMyClass }

procedure TMyClass.proc1;
begin
  MessageBox(GetDesktopWindow, 'proc1', '', MB_ICONINFORMATION);
end;

procedure TMyClass.procex;
begin
  MessageBox(GetDesktopWindow, 'procex', '', MB_ICONINFORMATION);
end;

begin
  // Создаем экземпляр класса
  a:=TMyClass.Create; 
  // Вызываем процедуру № 1 
  a.proc1;
  // Вызываем процедуру №  2 
  // Если не использовать приведение типа, то это 
  //вызовет ошибку компиляции...
  IMyInterfaceEx(a).procex;
end.