[Delphi] Image & ImageList - jeszcze jeden problem

Witam.
Mam taki "malutki" problemik. A wiec mam na formie ImageList1 i Image1, no i powiedzmy Timer1... i dla zdarzenia Timer1Timer mam taka procke
var
I : Integer;
begin
ImageList1.Draw(Image1.Canvas, 0, 0, I);
if I = 9 then
I := 0
Inc(I)
end;

jak widac powinna powstac animacja przez rysowanie kolejnych obrazkow na Image1.Canvas, ale tu... rysuje mi tylko pierwszy obrazek a pozniej koniec, kicha nie dziala:(
P. S. Za pomoc stawiam kufel... {browar} ... Coca-Coli:)--Delphi vs. Visual C++ = ?:?

Problem jest rzeczywiscie banalny za kazdym wywolaniem funkcji zmienna I ma niezdefiniowana wartosc, przenies "I: Integer" do sekcji private :)--W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.

Coz, moze sie zblaznie, ale to dalej nie dziala:(
P. S. Help^2--Delphi vs. Visual C++ = ?:?

OK, juz nie odpisujcie, znalazlem rozwiazanie na mooj problem HURRA!--Delphi vs. Visual C++ = ?:?