Картинки в ini-file. Не верные чтение или запись?

procedure TForm1.Button3Click(Sender: TObject);
var
  Fs : TFileStream;
  Ms : TMemoryStream;
  Ini : TIniFile;
  S1, S2 : AnsiString;
  Path : string;
begin
  Fs := nil;
  Ms := nil;
  Ini := nil;
  try
    //1. Получаем поток с исходными данными (данные Bitmap).
 
    //Загружаем из файла исходные данные Bitmap в Image1.
    Path := ExtractFilePath(ExtractFilePath(ParamStr(0)));
    Image1.Picture.Bitmap.LoadFromFile(Path + '01.bmp');
    //Bitmap содержимое из Image1 переписываем в поток.
    Ms := TMemoryStream.Create;
    Image1.Picture.Bitmap.SaveToStream(Ms);
 
    //2. Данные исходного потока записываем в ANSI строку S1.
 
    SetLength(S1, Ms.Size);
    Ms.Position := 0;
    Ms.Read(S1[1], Ms.Size);
 
    //3. Данные исходного потока записываем в INI файл, затем читаем эти данные
    //   обратно в поток, а потом помещаем их в ANSI строку S2.
    Ini := TIniFile.Create(Path + 'project.ini');
    Ms.Position := 0;
    Ini.WriteBinaryStream('images', 'img1', Ms);
    Ms.Size := 0;
    Ini.ReadBinaryStream('images', 'img1', Ms);
    SetLength(S2, Ms.Size);
    Ms.Position := 0;
    Ms.Read(S2[1], Ms.Size);
 
    //4. Сравниваем строки S1 и S2.
    if S1 = S2 then
      ShowMessage('S1 = S2')
    else
      ShowMessage('S1 <> S2 !');
  finally
    FreeAndNil(Fs);
    FreeAndNil(Ms);
    FreeAndNil(Ini);
  end;
end;