// Call after loading, with DisplayNikonMakerNotes( ImageEnView1.IO.Params );
procedure DisplayNikonMakerNotes(Params: TIOParams; DestListView: TListView);
var
  i:integer;
  tag:string;

  procedure AddTag(const desc:string);
  begin
    with DestListView.Items.Add do
    begin
      Caption := tag;
      SubItems.Append( desc );
    end;
  end;

begin
  DestListView.Items.Clear;

  if Data.Size = 0 then
    exit;
             
  // NIKON MAKER NOTE
  // Source: http://www.tawbaware.com/990exif.htm

  tag := 'Color mode';
  AddTag( Trim( Params.EXIF_MakerNote.GetString(3)));

  tag := 'Image quality setting';
  AddTag( Trim( Params.EXIF_MakerNote.GetString(4)));

  tag := 'White balance';
  AddTag( Trim( Params.EXIF_MakerNote.GetString(5)));

  tag := 'Image sharpening setting';
  AddTag( Trim( Params.EXIF_MakerNote.GetString(6)));

  tag := 'Focus mode';
  AddTag( Trim( Params.EXIF_MakerNote.GetString(7)));

  tag := 'Flash setting';
  AddTag( Trim( Params.EXIF_MakerNote.GetString(8)));

  tag := 'ISO selection';
  AddTag( Trim( Params.EXIF_MakerNote.GetString(15)));

  tag := 'Image adjustment setting';
  AddTag( Trim( Params.EXIF_MakerNote.GetString(128)));

  tag := 'Auxiliary lens (adapter)';
  AddTag( Trim( Params.EXIF_MakerNote.GetString(130)));

  tag := 'Manual focus distance';
  AddTag( FloatToStr( Params.EXIF_MakerNote.GetRational(133)));

  tag := 'Digital zoom setting';
  AddTag( FloatToStr( Params.EXIF_MakerNote.GetRational(134)));
end;