Error en mi Thread
 

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;

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...:)

Cambiale el nombre de Executar a Execute

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!!