Ну не плохо было бы где-нить там в процедуре povtor или цикле Repaint делать
Еще советую пройтись по файлам img1.png..img4.png утилитой pngout - их размер сократиться до 37 kb (в оригинале - 52Kb).
И очень озадачил меня этот код:
if n=1 then
begin
no:=1
end else
if n=2 then
begin
no:=2
end else
if n=3 then
begin
no:=3
end else
if n=4 then
begin
no:=4
end;
По-моему можно заменить на no := n;