Drop-effekt

Hejsa. Jeg har et lille problem. Jeg kunne tænke mig at lave en drop-effekt i en striggrid (i hvert fald det princip jeg vil bruge). Når man trykker på en knap skal der altså ske det, at det ser ud som om, at et 'X' falder til bunden i en stringgrid, således at X'et tager et stykke tid t at bevæge sig fra felt til felt mod bunden. Når bunden er nået skal X'et blive liggende. Jeg regnede egentlig med, at jeg kunne bruge sleep(t) til dette, men det ser ikke ud til at virke. Min kode kan i se i kodeeksemplet.

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin

for i:=0 to 4 do
   begin
Stringgrid1.Cells[1,i]:='X';
Sleep(100);
Stringgrid1.Cells[1,i]:=';
if i=4 then Striggrid1.Cells[1,i]:='X';
   end;

Der sker altså ikke det, som jeg egentlig troede der ville ske. Det der sker er, at der går noget tid hvor man intet kan gøre, og så ligger krydset pludseligt i bunden. Man ser altså ikke brikken falde til bunden. Nogen som kan forklare dette? Eller nogen som har et andet forslag til at få tiden t til at løbe på anden vis end ved sleep?