test.pas

procedure TForm14.FormCreate(Sender: TObject);
var
  Pic: TPicture;
  PNG, FStatusMask, FOver: TPngImage;

  function CreateAvatar(Source: TGraphic; Mask: TPngImage): TPngImage;
  var
    BMPSmooth: TBitmap;
    Av: TPngImage;
  begin
    BMPSmooth := SmoothStrechDraw(Source, TSize.Create(Mask.Width, Mask.Height));
    Av := TPngImage.CreateBlank(COLOR_RGB, 16, Mask.Width, Mask.Height);
    Av.Canvas.Draw(0, 0, BMPSmooth);
    BMPSmooth.Free;
    Av.CreateAlpha;
    ApplyMask(0, 0, Mask, Av);
    Result := TPngImage.CreateBlank(COLOR_RGBALPHA, 16, Mask.Width, Mask.Height);

    DrawTo(0, 0, FOver, Result);
    DrawTo(0, 0, Av, Result);
    Av.Free;
  end;

begin
  FStatusMask := TPngImage.Create;
  FStatusMask.LoadFromFile('mask.png');
  FOver := TPngImage.Create;
  FOver.LoadFromFile('mask_over.png');
  Pic := TPicture.Create;
  Pic.LoadFromFile('sample.png');
  PNG := CreateAvatar(Pic.Graphic, FStatusMask);
  ImageAvatar.Picture.Assign(PNG);

  PNG.Free;
  Pic.Free;
  FOver.Free;
  FStatusMask.Free;
end;