Error en mi Thread

[Paulao]

Hizo un pequeño ejemplo con Thread y no estas funcionando. Estas dando el error:
Method Exceutar no found in base class
Mi Unit com mi class TContador(Thread) y otra Unit onde yo impiezo la thread.
Abajo la class que estas dando el error

Código Delphi [-]
unit Unit2;

interface

uses classes;

type
  TContador = class(TThread)
  protected
    procedure Executar;override;
end;

implementation

 uses Unit1;

{ TContador }

procedure TContador.Executar;
var
contador: integer;
begin
  priority := tpLower;
  Form1.Progressbar1.Max := 1000000;
  for contador := 1 to 1000000 do
     form1.ProgressBar1.Position := contador;
  inherited;

end;

end.

Mi llamada a classe TContador con el clic del button

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ThreadContador: TContador;
begin
  ThreadContador := TContador.Create(True);
  ThreadContador.FreeOnTerminate(True);
  ThreadContador.Resume;
end;