Suvorov Alexander
дата публикации 08-07-2002 17:26

---

Версия для печати

procedure SomeProc({const} A: IUnknown);
begin
  // ...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SomeProc(TInterfacedObject.Create);
end;