Не дождавшись предложений, решил выложить свой вариант эффекта с картинкой "Жалюзи". В примере два варианта жалюзей - горизонтальные и вертикальные. Вот только не пойму одной загвоздки. В цикле вроде
i все правильно указан , начиная с нуля. Однако, если не добавить
-1, то вверху остается тонкая незарисованная полоска картинки. С чем это связано не пойму
...
for i:= 0 to wi/k do
begin
for j:= 0 to (k - 1) do
FillRect(i - 1 + (j*(wi/k)), 0, i, hi);
repaint;
Delay(100);
end;
...
Подробнее можно посмотреть во вложенном примере.
ps
Проверялось на Kemulator (240/320. 176x220)