for I := 1 to 6 do
  begin
    // Add a text object
    ImageEnView1.LayersAdd( 'A' + IntToStr( I ), 14, clBlack, 'Arial', [fsBold]);
    txtLayer := TIETextLayer( ImageEnView1.CurrentLayer );

    if I mod 2 = 0 then
      txtLayer.PosX := 500  // even number
    else
      txtLayer.PosX := 100;  // Odd number;
    txtLayer.PosY := ( I + 1 ) div 2 * 300 + 100;
    txtLayer.Width  := 200;
    txtLayer.Height := 200;
    txtLayer.BorderColor := clRed;
    txtLayer.BorderWidth := 5;
    txtLayer.FillColor   := clYellow;
    txtLayer.BorderShape := iesEllipse;
    txtLayer.Alignment   := iejCenter;
    txtLayer.Layout      := ielCenter;
  end;
  ImageEnView1.Update();

lyr := ImageEnView1.Layers[i];
centerPt.X := lyr.PosX + lyr.Width div 2;
centerPt.Y := lyr.PosY + lyr.Height div 2;
ptOnEdge := OffsetPoint( centerPt, lyr.Width div 2, lyr.Height div 2, 30 );