var
my_tiff: PTIFF;
FirstPageWidth,FirstPageHeight: Cardinal;
FirstPageBitmap: TBitmap;
listCount: integer;

// переменные для изменения размера битмапа
thumbRect : TRect;
maxWidth, maxHeight: integer;

begin

my_tiff:=TIFFOpen('my.tif','r')  ; // 'a'- append

// переход на страницу в Multi-page tiff'e

listCount:=0;
    repeat
     listCount:=listCount+1;
    until ((TIFFReadDirectory(my_tiff)=-1) OR (listCount=StrToInt(Edit6.Text))) ;
// -> BitMap

   TIFFGetField(my_tiff,TIFFTAG_IMAGEWIDTH,@FirstPageWidth);
  TIFFGetField(my_tiff,TIFFTAG_IMAGELENGTH,@FirstPageHeight);
  FirstPageBitmap:=TBitmap.Create;
  FirstPageBitmap.PixelFormat:=pf32bit;
 FirstPageBitmap.Width:=FirstPageWidth;
 FirstPageBitmap.Height:=FirstPageHeight;
  TIFFReadRGBAImage(my_tiff,FirstPageWidth,FirstPageHeight,
              FirstPageBitmap.Scanline[FirstPageHeight-1],0);
 TIFFClose(my_tiff);

// resize Bitmap and -> Image

 //proportional resize
    if FirstPageBitmap.Width > FirstPageBitmap.Height then
    begin
      thumbRect.Right := maxWidth;
      thumbRect.Bottom := (maxWidth * FirstPageBitmap.Height) div FirstPageBitmap.Width;
    end
    else
    begin
      thumbRect.Bottom := maxHeight;
      thumbRect.Right := (maxHeight * FirstPageBitmap.Width) div FirstPageBitmap.Height;
    end;
   //resize image
   FirstPageBitmap.Canvas.StretchDraw(thumbRect, FirstPageBitmap) ;
    FirstPageBitmap.Width := thumbRect.Right;
   FirstPageBitmap.Height := thumbRect.Bottom;

    //display in a TImage control
    Image1.Picture.Assign(FirstPageBitmap) ;