在线程中创建adoconnetion及adoquery报错

在线程中创建ADO时，在创建时报错数据类型不兼容：Sendth:=SendThread.Create(true);这里创建线程时报错“incompatible types:'Tadoconnection' and 'boolean'”
原码如下：//定义一个发送线程
type
   SendThread=Class(TThread)
  private
   FAdoConnection:TADOConnection;
   FAdoquery:TADOQuery;
   FSql:String;
  protected
    procedure Execute; override;
    procedure SendPro;
  public
    constructor create(AdoConnection:TADOConnection;AdoQuery:TADOQuery;Sql:string);
  end;implementation{$R *.dfm}
constructor SendThread.create(AdoConnection:TADOConnection;AdoQuery:TADOQuery;Sql:string);
begin
   inherited create(False);
   FreeOnTerminate:=True;
   FAdoConnection:=AdoConnection;
   FAdoquery:=AdoQuery;
   FSql:=Sql;
end;procedure TMainFrm.FormShow(Sender: TObject);
var
 SendTh:SendThread;
begin
 Sendth:=SendThread.Create(true);这里创建线程时报错“incompatible types:'Tadoconnection' and 'boolean'”
 Sendth.Resume;
end;procedure SendThread.Execute;
begin
while not terminated   do
begin
    EnterCriticalSection(CS); //进入临界区
    synchronize(SendPro);
    Application.ProcessMessages;
end;
LeaveCriticalSection(CS); //离开临界区
end;