在线程中创造adoconnetion及adoquery报错

在线程中创建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;


[解决办法]
你定义的构造函数是SendThread.create(AdoConnection:TADOConnection;AdoQuery:TADOQuery;Sql:string);
你看看里面是什么参数，你再看那看你传入的是什么 True,这能匹配吗
[解决办法]
constructor create(AdoConnection:TADOConnection;AdoQuery:TADOQuery;Sql:string); overload;