Procedure TfrmViewImage.AddText(aImageEnView : TImageEnVect);
var
  tmpFont:TFont;
begin
  Try
    aImageEnView.ObjKind[-1]    := iekMEMO ;
    aImageEnView.ObjLeft[-1]    := iLeft *5;
    aImageEnView.ObjTop[-1]     := iTop * 5;
    aImageEnView.ObjHeight[-1]  := 125;
    aImageEnView.ObjWidth[-1]   := 350;
    aImageEnView.ObjFontLocked[-1]          := false;
    aImageEnView.ObjMemoBorderStyle[-1]     := psclear;
    aImageEnView.ObjMemoCharsBrushStyle[-1] := bsClear;
    tmpFont:=TFont.Create;
    tmpFont.Color:=clWhite;
    tmpFont.Size:=36;
    tmpFont.Name:='Verdana'; 
    tmpFont.Style:=tmpFont.Style + [fsBold];
    aImageEnView.SetObjFont(-1,tmpFont);
    tmpFont.Free;
    aImageEnView.AddNewObject;
    aImageEnView.MouseInteractVt:=[miObjectSelect];
  Except
    On E : Exception do Begin
      MessageDlg('Error in adding text to image - ' + E.Message, mtError, [mbOk], 0);
    End;
  End;
end;

procedure Tfmain.ImageEnView1MouseWheel(Sender: TObject; Shift: TShiftState;
    WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  txtlyr: TIETextLayer;
begin
  // Size font of Text layers using mouse wheel
  if ( ImageEnView1.LayersCurrent > 0 ) and ( ImageEnView1.CurrentLayer.Kind = ielkText ) then
  begin
    txtlyr :=  TIETextLayer( ImageEnView1.CurrentLayer );
    if WheelDelta < 0 then
      txtlyr.Font.Size := txtlyr.Font.Size + 1
    else
      txtlyr.Font.Size := max( 1, txtlyr.Font.Size - 1 );
    ImageEnView1.Update();
    Handled := True;
  end;
end;