我快疯了,快来救救我吧?????

我做了一个DLL然后在别的工程中一引用就是加载错误是怎么回事呀????
library Project1;
uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas',
  VTxtAuto_TLB in '..\Imports\VTxtAuto_TLB.pas';{$R *.res}
  exports
  Create1 index 1 ,
  Read  index 2,
  Pause  index 3,
  Resume  index 4,
  Stop  index 5,
  IsSpeaking  index 6,
  Destory  index 7;
begin
end.
//////////////////////////////////////////////////////////
unit Unit1;interface
uses VtxtAuto_TLB;
procedure Create1;export;
procedure Read(text:PChar);export;
procedure Pause;export;
procedure Resume;export;
procedure Stop;export;
function IsSpeaking:Boolean;export;
procedure Destory;export;
var
TTS:IVTxtauto;
implementation
 procedure Create1;
 begin
 TTS:=CoVTxtAuto_.Create;
 TTS.Register('Project1','Project');
 end;
 procedure Read(text:PChar);
 begin
 TTS.Speak(text,vtxtst_READING);
 end;
 procedure Pause;
 begin
 TTS.AudioPause ;
 end;
 procedure Stop;
  begin
  TTS.StopSpeaking ;
  end;
  procedure Resume;
   begin
   TTS.AudioResume ;
   end;
   function IsSpeaking:Boolean;
   var
   Check:Boolean;
   begin
   if TTS.IsSpeaking then
   begin
   Check:=TRUE;
   end
   else
   begin
   Check:=FALSE;
   end;
   Result:=Check;
   end;
   procedure Destory;
   begin
   TTS:=nil;
   end;end.
另外我还引用了别的一个控件太长就不贴了,
谢谢各位大哥了