Конструктор в потомке

type Thread1=class(TThread)
 Fpath:string;
 Flist,Flist2:Tlistbox;   //это поля разные, некоторые будут нужны в потомке
 Flabel:Tlabel;
 FTS:Tstringlist;
 Fsl:string;
 constructor Create(Apath:string; Alistbox:Tlistbox; Alabel:Tlabel; Alistbox2:Tlistbox);
 procedure Execute; Override;
 procedure V1;
end;
 
type Thread2=class(Thread1)
  FN:integer;
  constructor Create;           //конструктор thread2, ничего водить не надо, в конструкторе должен быть   запуск 2го потока
  procedure Execute; Override;
  procedure V2;
end;
 
//////////////////////////////////////
//1й первый конструктор
constructor Thread1.Create(Apath: string; Alistbox: Tlistbox; Alabel: Tlabel;
  Alistbox2: Tlistbox);
begin
inherited Create(true);  //вызывается конструктор предка -Tthread, работает все нормально
FreeOnTerminate:=True; 
Fpath:=Apath; Flist:=Alistbox; 
Flabel:=Alabel;               
FTS:=TstringList.Create;  FTs.Clear;
Flist.Clear;
FList2.Clear;
                           //на этом этапе мне надо запустить 2й поток
Thread2.Create;    //запускаю и переходим во второй конструктор
resume;
end;
 
constructor Thread2.Create;   //перешли суда
begin
inherited Create(true);  //здесь мне надо вызвать конструктор главного предка Tthread, а вызывается Thread1, поэтому и ошибка
                                 // как это сделать незнаю. Подскажите плиз. 
FreeOnTerminate:=True;
fn:=0;
resume;
end;