"Копирование частей pngimage в pngimage" или "Создание своей всеразмерной и прозрачной кнопки"

[alextrof94]

И снова я =) Дело в том, что это все касается одного проекта и я собираю его по кускам параллельно учась)
Вообщем мне надо создать свой всеразмерный контрол (кнопка) на основе картинки.
Есть картинка .png заранее нарисованная в ФШ, из нее надо сделать кнопку, которую можно растянуть хоть на весь экран, естественно, чтоб она не потеряла свой вид, т.е. углы такие же закругленые/угловатые/т.п. как в оригинале.
Рассмотрел функцию copyrect, но на tpngimage таковая не работает. Подскажите что делать, пожалуйста.
В обработчике формы repaint я сначала все стираю с tbitmap, а затем рисую на нем, после чего загружаю его в канву формы функцией draw, чтобы избежать ненужного мерцания.
Так вот если этой же функцией (draw) выводить на tbitmap tpngimage, то все отлично рисуется, и ДАЖЕ С ПРОЗРАЧНОСТЬЮ! =)
Но вот сам tpngimage изменить ручками не получается.

Вот так сделать свой прозрачный контрол пытался я.

unit buttontype;

interface

uses pngimage, System.SysUtils, System.Classes;

type tmybutton = record
  public
  png:tpngimage;
  left, top:integer;
  function create(name: string; height, width:integer): boolean;
  procedure free;
end;

var t:text;

implementation

{ tmybutton }

function tmybutton.create(name: string; height, width:integer): boolean;
var pngbuf:tpngimage; n:integer;
begin
  result:=false;
  if (fileexists(name+'.png'))and(fileexists(name+'.aff')) then
  begin
    result:=true;
    assignfile(t, name+'.aff'); //хранится всего 1 число (n) - размерность углового региона
    reset(t);
    readln(t, n);
    closefile(t);
    pngbuf:=tpngimage.Create;
    pngbuf.LoadFromFile(name+'.png');
    png:=tpngimage.Create;
    png.Width:=width; //говорит, что неизменяемый параметр,
    png.Height:=Height; //что, собственно, уже как бы намекает.
    //загрузка изображения по частям
    png.Canvas.CopyRect(rect(0,0,n-1,n-1), pngbuf.Canvas, rect(0,0,n-1,n-1));
    png.Canvas.CopyRect(rect(n,0,width-n,n-1), pngbuf.Canvas, rect(n,0,n,n-1));
    png.Canvas.CopyRect(rect(width-(n-1),0,width-1,n-1), pngbuf.Canvas, rect(n+1,0,n*2+1,n-1));

    png.Canvas.CopyRect(rect(0,n,n-1,height-n), pngbuf.Canvas, rect(0,n,n-1,n));
    png.Canvas.CopyRect(rect(n,n,width-n,height-n), pngbuf.Canvas, rect(n,n,n,n));
    png.Canvas.CopyRect(rect(width-(n-1),n,width-1,height-n), pngbuf.Canvas, rect(n+1,n,n*2+1,n));

    png.Canvas.CopyRect(rect(0,height-(n-1),n-1,height-1), pngbuf.Canvas, rect(0,n+1,n-1,n*2+1));
    png.Canvas.CopyRect(rect(n,height-(n-1),width-n,height-1), pngbuf.Canvas, rect(n,n+1,n,n*2+1));
    png.Canvas.CopyRect(rect(width-(n-1),height-(n-1),width-1,height-1), pngbuf.Canvas, rect(n+1,n+1,n*2+1,n*2+1));

    pngbuf.Free;
  end;
end;

procedure tmybutton.free;
begin
  png.Free;
end;

end.

P.S.: Проект для института.

[alextrof94]

1 - оригинал (31х31, размерность углового региона "n" =15)
2 - растяжка регионов
3 - готовое изображение (64х35)
(белого фона у самих изображений нет)