procedure TFrmMain.btn1Click(Sender: TObject); var BPLClass:TClass; begin BPLClass:=GetClass('TForm1'); If BPLClassnil then begin Caption:='Create OK' ; Frm:=TComponentClass(BPLClass).Create(Application) as IFormAction; end; end;