I am not sure if I am doing this correct

procedure TForm2.Button1Click(Sender: TObject);
var sm : TSingleImage;
var mm : TMultiImage;
var y,x : integer;
var ss : string;

begin
if OpenDialog1.execute then
   begin

   y := opendialog1.Files.Count-1;
   mm := TMultiImage.Create;

           sm := TSingleImage.Create;

   for x  := 0 to y do
   begin
   ss := IncludeTrailingBackslash(ExtractFilePath(opendialog1.Files.Strings[x]));
      memo1.Lines.Add(opendialog1.Files.Strings[x]);
     sm.LoadFromFile(opendialog1.Files.Strings[x]);



     if mm.ImageCount = 0 then
       mm.Assign(sm)
       else

        mm.AddImage(sm)     ;




   end;

     mm.SaveMultiToFile(ss+'vampyre.tif');

if mm.AllImagesValid  then
         label1.Text := 'Good'
         else
         label2.text := 'Bad';

   end;

end;

I tested the above codes in Windows, it worked fine as the MultiPage TIFF is saved. However, deploying to the Mac, the AllImagesValid shows as True but then nothing is saved.

Is there anything I might be doing wrong ?

Thanks in advance

**Update** I changed the filename from TIFF to a JPG name and it worked on the Mac. I think the LibTIFF library doesn't seems to work with the Mac as it wasn't ported over. Perhaps that was the issue. Any solution ?

Overall, a very nice library. Would be perfect if the TIFF module works on the Mac.