InfoViewPerspective example for Delphi

LEADImage1.GetFileInfo ( 'v:\images\image1.cmp', 1 ) ;
ShowMessage  (IntToStr(LEADImage1.InfoViewPerspective));