delphi实现给图片加水印2用ImageEn控件

procedure TfrmPropertyData.AddImgWater(src, png: string;
  var ImageFilePath: string);
var
  X,Y:Integer;
  ImageEnView:TImageEnView;
  jpgWidth,jpgHeight:Integer;  
  pngWidth,pngHeight:Integer;
begin
  try
    ImageEnView:=TImageEnView.Create(nil);
    ImageEnView.Cursor := crHourGlass;
    ImageEnView.Visible := False;
    if not FileExists(png) then
    begin
      dmsystem.UPOPState('ûÓÐˮӡͼƬ¡£', 2);
      Exit;
    end;
    ImageEnView.IO.LoadFromFilePNG(png);
    pngWidth:=ImageEnView.Bitmap.Width;
    pngHeight:=ImageEnView.Bitmap.Height;
    ImageEnView.LayersAdd;
    if UpperCase(ExtractFileExt(src)) = '.BMP' then
    begin
      ImageEnView.IO.LoadFromFileBMP(src);
    end
    else
    if UpperCase(ExtractFileExt(src)) = '.JPG' then
    begin
      ImageEnView.IO.LoadFromFileJpeg(src);
    end;