procedure TForm1.AddLayer1Click(Sender: TObject);
begin
  {Add space at the top of the image to hold the text}
  ImageEnView1.Proc.ImageResize(0, 30, 0, 0);
  {Add a text layer}
  ImageEnView1.LayersAdd(ielkText);
  {Set the position and dimensions of the layer}
  ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosX := 0;
  ImageEnView1.Layers[ImageEnView1.LayersCurrent].PosY := 0;
  ImageEnView1.Layers[ImageEnView1.LayersCurrent].Width := ImageEnView1.IEBitmap.Width;
  ImageEnView1.Layers[ImageEnView1.LayersCurrent].Height := 30;
  {Set the layer text}
  TIETextLayer(ImageEnView1.CurrentLayer).Text := 'Custom Custom Custom Custom Custom Custom';
  {Align the text}
  TIETextLayer(ImageEnView1.CurrentLayer).Alignment := iejCenter;
  {Set the fill color}
  TIETextLayer(ImageEnView1.CurrentLayer).FillColor := clYellow;
  {Merge the layers}
  ImageEnView1.LayersMergeAll();
  ImageEnView1.Update();
end;