type tx=(first,second,three); var sx:tx;begin sx:= Succ(sx); if sx>three then sx:=first; case sx of three : img1.Picture.Bitmap.LoadFromFile('c:/3.bmp'); second :img1.Picture.Bitmap.LoadFromFile('c:/2.bmp'); first: img1.Picture.Bitmap.LoadFromFile('c:/1.bmp'); end;