[bleeep]

Нашел пример, то что мне нужно, но не знаю как избавиться от мерцания в анимации(( Подскажите как?Если ставить значение таймера низким то это очень заметно(
Вот код:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (pig1=false) and  (pig2=false) and (pig3=false) and
(pig4=false) and (pig5=false) and (pig6=false) and
(pig7=false) then
begin
image1.Picture.LoadFromFile('1.jpg');
pig1:=true;
end

else
if (pig1=true) and  (pig2=false) and (pig3=false) and
(pig4=false) and (pig5=false) and (pig6=false) and
(pig7=false)  then
begin
image1.Picture.LoadFromFile('2.jpg');
pig1:=false;
pig2:=true;
end

и так далее..