[DELPHI]Scalare freccia in uno stringgrid

[DevastoMC]

Salve a tutti!Rieccomi sul forum per necessità di aiuto
Il compito che mi è stato assegnato,e la rappresentazione grafica di una pila che esegue push e pop..per rappresentarla c'è uno stringgrid,dove in una colonna scorre un puntatore,una freccina,che indica in quale riga si andrà a fare il push..nell altra colonna invece ci andranno numerini assegnati da un bottone "push" con uno spinedit..
I miei primi intoppi è sullo scalare questa freccina,e so dov'è l'errore evidente,ma vi incollo cosa ho fatto:

i è una variabile globale

begin
i:=5;

while i=5 do
begin
stringgrid1.cells[1,i]:=' ---->';
stringgrid1.cells[1,i+1]:='';
stringgrid1.cells[2,i]:=inttostr(spinedit1.value);
end;

while i=4 do
begin
stringgrid1.cells[1,i]:=' ---->';
stringgrid1.cells[1,i+1]:='';
stringgrid1.cells[2,i]:=inttostr(spinedit1.value);
end;

while i=3 do
begin
stringgrid1.cells[1,i]:=' ---->';
stringgrid1.cells[1,i+1]:='';
stringgrid1.cells[2,i]:=inttostr(spinedit1.value);
end;

while i=2 do
begin
stringgrid1.cells[1,i]:=' ---->';
stringgrid1.cells[1,i+1]:='';
stringgrid1.cells[2,i]:=inttostr(spinedit1.value);
end;

while i=1 do
begin
stringgrid1.cells[1,i]:=' ---->';
stringgrid1.cells[1,i+1]:='';
stringgrid1.cells[2,i]:=inttostr(spinedit1.value);
end;


i:=i-1;
end;

Il programma mi entra in loop infinito,perchè chiaramente ho inizializzato 5 all inizio,e quindi mi eseguirà all infinito quel while..vorrei sapere se c'è un modo di inizializzare 5 in un posto dove non dia fastidio per scalare questa freccetta..Disperato!