1. when-new-form-instance 

     declare
        t timer;
      begin
        t :=create_timer('TI',3000,repeat);
     end;

2.WHEN-TIMER-EXPIRED

if :global.x<7 then
   :global.x:=(:global.x)+1;
   read_image_file('c:\TC\image \Center'||:global.x||'.jpg','All','image4');
read_image_file('D:\TC\image\Center'||:global.x||'.jpg','All','image5');
read_image_file('D:\TC\image\Center'||:global.x||'.jpg','All','image6');
read_image_file('D:\TC\image\Center'||:global.x||'.jpg','All','image7');
read_image_file('D:\TC\image\Center'||:global.x||'.jpg','All','image8');
read_image_file('D:\TC\image\Center'||:global.x||'.jpg','All','image9');

else
:global.x:=0;
end if;