[[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.