Ayuda con Hilos de ejecucion

[[kurono]]

ok amigos estoy leyendo algunos tutoriales que e encontrado en google

[[kurono]]

amigos disculpen e logrado hacer un hilo con la ayuda de algunos ejemplo que e contrado pero lo que no entiendo es como llamo el procedimiento execute para ejecutar el hilo

[Kipow]

Cuanto lo creas le indicas si lo creas suspendido o no, asi:

Si el parametro es Verdadero el hilo no se inicia hasta que le des un resume;

Ahora bien si es falso de una vez lo ejecuta al solo crearlo.

Código Delphi [-]
TMythread := TThread.Create(true);   // Aca lo estoy creando suspendido
.
.
.
.

TMythrea.Resume; // Aca ejecuto el procedimiento execute;

[[kurono]]

gracia amigo Kipow lo probare

[[kurono]]

disculpa amigo Kipow pero el codigoTMythrea.Resume; me da error

[[white_zombie]]

Hola, puedes dar algun dato mas del error o poner el codigo del thread y el codigo desde donde lo llamas.

[[kurono]]

aqui esta parte del codigo que utilizo

Código Delphi [-]
procedure TMyhilo.execute;
 var
       N,S:integer;

             begin

          n:=1500 ;

   s:=1500;

repeat
         s:=s+n;

              inc(n);

  until n=10;

            label2.Caption :=formatdatetime('hh:nn:ss:zzz',Now - HoraInicial);

       listbox1.lines.Add('Tiempo de Respuesta del calculo en :  '+label2.Caption  +  '  Mn '+listbox1.lines.NameValueSeparator  +  ' Completada');

 if listbox1.lines.Count=22 then

                nivel1.Enabled:=false;

       tiempo.Enabled:=false;

       if listbox1.lines.Count=22 then

       begin
       listbox1.Lines.Add('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');

   listbox1.lines.Add('Prueba Finalizada: '+label2.Caption +' Mn');

  end;

end;
procedure TForm1.prueba1Click(Sender: TObject);
begin
 TMyhilo.Create(true);
 TMyhilo.Resume;

end;

end.