procedure TForm1.Clear1Click(Sender: TObject);
begin
  ImageEnView2.Clear;
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
  if OpenImageEnDialog1.Execute then
  begin
    ImageEnView1.IO.LoadFromFile(OpenImageEnDialog1.FileName);
    ImageEnView1.Fit();
  end;
end;

procedure TForm1.Stream1Click(Sender: TObject);
var
  iMs: TMemoryStream;
begin
  iMs := TMemoryStream.Create;
  try
    ImageEnView1.IO.StreamHeaders := True;
    ImageEnView1.IO.SaveToStream(iMs, ioTIFF);
    iMs.Position := 0;
    ImageEnView2.IO.StreamHeaders := True;
    ImageEnView2.IO.LoadFromStream(iMs, ioTIFF);
    ImageEnView2.Fit();
    ImageEnView2.Update; Important!!
  finally
    iMs.Free;
  end;
end;

procedure TForm1.Stream2Click(Sender: TObject);
{Wesley Method}
var
  iMs: TMemoryStream;
  iFileType: Integer;
begin
  iMs := TMemoryStream.Create;
  try
    ImageEnView1.IO.StreamHeaders := True;
    ImageEnView1.IO.SaveToStream(iMs, ioTIFF);
    iMs.Position := 0;
    iFileType := FindStreamFormat(iMs);
    ImageEnView2.IO.StreamHeaders := True;
    ImageEnView2.IO.LoadFromStream(iMs, iFileType);
    ImageEnView2.Fit();
    ImageEnView2.Update; Important!! 
  finally
    iMs.Free;
  end;
end;

procedure TForm1.Stream3Click(Sender: TObject);
var
  iMs: TMemoryStream;
begin
  iMs := TMemoryStream.Create;
  try
    ImageEnView1.IO.SaveToStream(iMs, ioTIFF);
    iMs.Position := 0;
    ImageEnView2.IO.LoadFromStream(iMs, ioTIFF);
    ImageEnView2.Fit();
    ImageEnView2.Update;
  finally
    iMs.Free;
  end;
end;

function LoadFromStream(Stream: TStream; FileFormat: TIOFileType = ioUnknown): Boolean;