1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

function ReadTiffIntoBitmap(Filename: String): TBitmap;  
var  
  OpenTiff: PTIFF;  
  FirstPageWidth,FirstPageHeight: Cardinal;  
  FirstPageBitmap: TBitmap;  
begin  
  OpenTiff := TIFFOpen(Filename,'r');  
  if OpenTiff = nil then raise Exception.Create(  
    'Unable to open file '''+Filename+'''');  
  TIFFGetField(OpenTiff, TIFFTAG_IMAGEWIDTH, @FirstPageWidth);  
  TIFFGetField(OpenTiff, TIFFTAG_IMAGELENGTH, @FirstPageHeight);  
  FirstPageBitmap := nil;  
  try  
    FirstPageBitmap := TBitmap.Create;  
    FirstPageBitmap.PixelFormat := pf32bit;  
    FirstPageBitmap.Width := FirstPageWidth;  
    FirstPageBitmap.Height := FirstPageHeight;  
  except  
    if FirstPageBitmap <> nil then FirstPageBitmap.Destroy;  
    TIFFClose(OpenTiff);  
    raise Exception.Create('Unable to create TBitmap buffer');  
  end;  
  TIFFReadRGBAImage(OpenTiff, FirstPageWidth, FirstPageHeight,  
    FirstPageBitmap.Scanline[FirstPageHeight - 1], 0);  
  TIFFClose(OpenTiff);  
  TIFFReadRGBAImageSwapRB(FirstPageWidth, FirstPageheight,  
    FirstPageBitmap.Scanline[FirstPageHeight - 1]);  
  Result := FirstPageBitmap;  
end;                    

1:

PCandinal = ^Cardinal