为什么老说没有声明呀

unit Unit1;interface
uses VtxtAuto_TLB;
procedure Create;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 Create;
 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.
说是没有声明CoVTxtAuto