1:
2:

p: oleVariant;
p := CreateOleObject('testdll.clsFile');					

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

type
  TForm1 = class(TForm)
  {...}
  private
    { Private-Deklarationen }
    X: TclsFile;
    procedure FileLoadProgress(Sender: TObject; min: Double; act: Double; max: Double);
  {...}
  end;					

1:
2:
3:
4:

procedure TForm1.FileLoadProgress(Sender: TObject; min, act, max: Double);
begin
  // Dein Quelltext
end;					

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

procedure TForm1.FormCreate(Sender: TObject);
begin

  // Klasse aus der VB ActiveX DLL erstellen
  X := TclsFile.Create(nil);

  // Ereignis zuweisen
  X.OnFileLoadProgress := FileLoadProgress;

end;					

1:
2:

  // Klasse aus der VB ActiveX DLL erstellen   
  X := TclsFile.Create(nil);					

1:
2:
3:

var p: myActiveXClass;

p := CoclsmyActiveXClass.Create();