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.