como imitar el programa super pi

[[kurono]]

me surgio una idea mas a lo que quiero llegar hacer y es hacer un calculo repetitivo en un bucle hasta que se cumpla una condicion y cuando se cumpla esa condicion muestre el tiempo en que lo hiso .

por ejemplo :

Código Delphi [-]
var
numero:integer;
begin
numero:=0;
begin
repeat
label1.caption:=numero+1
until 10

end;
end;
end.

solo faltara poner el cronometro