procedure TForm23.FormCreate(Sender: TObject);
var
  plLayer: TIEPolylineLayer;
begin
  ImageEnView1.IEBitmap.Fill(clWhite);

  ImageEnView1.LayersAdd(ielkPolyline, 0, 0, ImageEnView1.Layers[0].Width, ImageEnView1.Layers[0].Height);
  plLayer := TIEPolylineLayer(ImageEnView1.CurrentLayer);
  with plLayer do
  begin
    ClearAllPoints;

    AddPoint( 0, 0 );
    AddPoint( 600, 0 );
    AddPoint( 400, 1000 );
    AddPoint( 0, 1000 );

    FillColor := clBlack;
    PolylineClosed := True;
  end;
end;