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;

[rgstuamigo]

Es lógico el error ya que no existe(que yo sepa) una método de nombre "Executar" dentro de la clase TThread, creo que te has equivocado de nombre; por lo tanto el nombre más bien debe ser "Execute"

Código Delphi [-]
...
  protected
    procedure Execute; override;//<-- debe ser así 
  end;
...

Saludos...

[droguerman]

Cambiale el nombre de Executar a Execute

[Paulao]

Ok, hizo de forma equivocada, pues yo pense que podria poner qualquier nombre. Usando el Wizard, el ya pone el metodo Execute. Antes yo no habria hecho por el wizard y si, manualmente. Gracias. Ya lo hizo y funciono. Hecho!!