HemulGM

function CreateAvatar(Source: TGraphic; Mask: TPngImage): TPngImage;
  var
    BMPSmooth: TBitmap;
    Av: TPngImage;
  begin
    BMPSmooth := SmoothStrechDraw(Source, TSize.Create(Mask.Width, Mask.Height));
    Result := TPngImage.CreateBlank(COLOR_RGB, 16, Mask.Width, Mask.Height);
    Result.Canvas.Draw(0, 0, BMPSmooth);
    with TDirect2DCanvas.Create(Result.Canvas, Rect(0, 0, Mask.Width, Mask.Height)) do
    begin

HemulGM

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

HemulGM

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