Animação em números

Tenho um sistemazinho de sorteio. Utilizo o seguinte código:
procedure TfSorteio.BitBtn1Click(Sender: TObject);
var
R:Integer;
begin
Randomize;
R := Random (17271);
ShowMessage(Format(´Veja o número do Plano sorteado: ¬d´, [R]));
end;

Só que preciso mudar esse valor (17271), e toda vez tenho que abrir o código e depois recompilar. Como Fazer isso em tempo de execução?
Como colocar os números animados. Ex.: Caça níkel.
Entenderam?
desde já agradeço.