[Janom]

У меня эта же версия PngImage и буквально на днях занимался такой темой, собрал юнит с 4мя полезными процедурками, юнит в аттаче, а сюда примеры использования выложу:
Делает картинку "полупрозрачной" от 0..255

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  pnga:TPNGObject;
begin
pnga:=TPNGObject.Create;
pnga.LoadFromFile('3.png');
SetPNGTranparent(pnga,183);
image1.Picture.assign(pnga);
pnga.Free;
end;

Масштабирует изображение.

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  pnga:TPNGObject;
begin
pnga:=TPNGObject.Create;
pnga.LoadFromFile('1.png');
SetPNGSize(pnga,300,600,false);
image1.Picture.assign(pnga);
pnga.Free;
end;

Вот это как раз то что тебе нужно

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
  a,b:TPNGObject;
begin
a:=TPNGObject.Create;
a.LoadFromFile('1_3.png');
b:=TPNGObject.Create;
b.LoadFromFile('1_4.png');
MergePNGLayer(a,b,-10,30);
Image1.Picture.Assign(a);
a.Free;
b.Free;
end;

Изменить размер канвы, заполняется прозрачностью.

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  a:TPNGObject;
begin
a:=TPNGObject.Create;
a.LoadFromFile('l2.png');
SetPNGCanvasSize(a,30,20,-10,-10);
Image1.Picture.Assign(a);
a.Free;
end;