SaveResolutionCount example for Delphi

Var
   iCounter : Integer;
Begin
   { assume that our bitmap is 800 x 600 }
   { save 3 resolutions}
   Lead1.SaveResolutionCount := 3;
   Lead1.SaveResolutionWidth[0] := 800;
   Lead1.SaveResolutionHeight[0] := 600;
   Lead1.SaveResolutionWidth[1] := 400;
   Lead1.SaveResolutionHeight[1] := 300;
   Lead1.SaveResolutionWidth[2] := 200;
   Lead1.SaveResolutionHeight[2] := 150;
   { get the SaveResolution info}
   ShowMessage('SaveResolutionCount = ' + IntToStr( Lead1.SaveResolutionCount));
   For iCounter := 0 To Lead1.SaveResolutionCount – 1 do
      ShowMessage('SaveResolution[' + IntToStr(iCounter) + '] = ' +
         IntToStr(Lead1.SaveResolutionWidth[iCounter]) + ' x ' +
         IntToStr(Lead1.SaveResolutionHeight[iCounter]));
End;