function TDokPrivFrame.InsertThumb(Const fThumb: TIMageEnMView; Var aStream: TMemoryStream): Boolean;
begin
  Result:=ImageEnMView_AppendImage(fThumb,aStream)<>-1;
  FreeAndNil(aStream); 
end;

function ImageEnMView_InsertImageEx(Const ImageMEV: TImageEnMView; SelectIt:Boolean=false):Integer;
begin
  with ImageMEV do
  begin
    result:=ImageCount;
    if SelectIt then InsertImageEx(Result, imsAlways) 
    else             InsertImageEx(Result, imsAuto);  
  end;
end;

function  ImageEnMView_AppendImage (Const ImageMEV: TImageEnMView; ImageStream: TMemoryStream; SelectIt: Boolean=false): Integer; overload;
begin
  Result:=ImageEnMView_InsertImageEx(ImageMEV, SelectIt);
  ImageStream.Position:=0;
  ImageMEV.SetImageFromStream(Result, ImageStream);
end;

function ImageEnMView_InsertImageEx(Const ImageMEV: TImageEnMView; SelectIt:Boolean=false):Integer;
begin
  with ImageMEV do
  begin
    result:=ImageCount;
    if SelectIt then InsertImageEx(Result, imsAlways)
    else             InsertImageEx(Result, imsAuto);
  end;
end;

function  ImageEnMView_AppendImage(Const ImageMEV: TImageEnMView; ImageStream: TStream; SelectIt: Boolean=false): Integer; overload;
begin
  Result:=ImageEnMView_InsertImageEx(ImageMEV, SelectIt);
  ImageStream.Position:=0;
  ImageMEV.SetImageFromStream(Result, ImageStream);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  fs: TIEWideFileStream;
  idx: Integer;
begin
  fs := TIEWideFileStream.Create('D:\Lingari.jpg', fmOpenRead or fmShareDenyWrite);
  idx := ImageEnMView_AppendImage(ImageEnMView1, fs);
  if idx <> -1 then
    Caption := IntToStr( idx )
  else
    raise Exception.create( 'Error' );
  FreeAndNil(fs);
end;