анимация

[Terrance!]

Работает не как надо! Зараза
7 картинок должны сменять друг друга

procedure TForm1.OnTimer1(Sender: TObject);
var
n:integer;
begin
for n:=1 to 7 do ;
n:=n+1;
if (n>7)then n:=1;
Image1.Picture.Bitmap.LoadFromFile(IntToStr(n)+'.bmp');
end;

end.

Но в итоге виден всего 1 кадр

[Пепел Феникса]

for n:=1 to 7 do ;

это убрать.

var
n:integer;

сделать глобальной.

правда такой метод не очень...

[DoDge_VipeR]

for n:=1 to 7 do ;// вот это уберите

n:integer;//это обьявите глобально

в formcreate

n:=1;

и все у вас получится!

почти буква в букву)

[DoDge_VipeR]

.................................

[Terrance!]

Всем большое спасибо!