procedure TForm4.menu11Click(Sender: TObject);
var bmp1:TBitmap;
begin try
open1.FileName :='';
if open1.Execute then begin
   bmp1:=TBitmap.Create;
   bmp1.LoadFromFile(open1.filename);
   editor.InsertBitmap(bmp1,true);
   bmp1.free;
end;
except end;End;