procedure Tfmain.Button1Click(Sender: TObject);
const
  w = 500;
  h = 500;
var
  ie: TImageEnView;
begin
  ie := ImageEnView1;

  ie.IEBitmap.Allocate(w, h, ie24RGB);

  // Draw Rectangle
  with ie.IEBitmap.IECanvas do
  begin
    Pen.Width:= 5;
    Pen.Style:= psSolid;
    Pen.Mode:= pmCopy;
    Pen.Color:= clGreen;
    Brush.Style:= bsClear;
    Rectangle(1, 1, w-1, h-1);
  end;
  // Refresh view
  ie.Update();