Использование Copyrect в связке с TPngImage...?

[spamer]

Допустим есть вот такой код, вроде бы как и отрабатывает, но ничего не рисует на TImage:

procedure TForm1.Button1Click(Sender: TObject);
var
  png: TPngImage;
  can: TPngImage;
begin
  png := TPngImage.Create;
  can := TPngImage.Create;
  png.LoadFromFile('MyImage.png');
  can.Draw(png.Canvas, Rect(0, 0, png.Width, png.Height));
  Image1.Canvas.Draw(0, 0, can);
end;

Что надо сделать - есть изображение PNG на котором имеются позиции кнопки, т.е. Normal, Move и Pressed. Хочу загрузить это изображение в некий буфер TPngImage и уже рисовать ту позицию, которая мне нужна. Думал сделать через Copyrect или Bitblt, но как оказалось с прозрачностью они не дружат...
Думал, что выше приведенный код будет нормально работать, но не тут то было...
Так вот, кто может чего посоветовать?

[BOBAH13]

Image1.Width := png.Width;
Image1.Height := png.Height;

? или как там. Image.Bitmap.Width...

[spamer]

BOBAH13, все равно не работает. Просто TImage закрашивается белым цветом, а изображение не выводится. Может есть какой-то другой вариант решения данной проблемы?
з.ы. Хотя в теории должен и этот код работать...вроде бы...чего-то не понятно...

ДОБАВЛЕНО:
Вот нашел вроде то, что мне нужно - привожу сюда саму процедуру и ссылку на обсуждение:
Скопировать часть изображения, TPngObject.

Procedure CutPNG(Source: TPNGImage; OutPNG: TPNGImage; R: TRect);
Var
   i,xmax,ymax: integer;
   Inside: TPNGImage;
Begin
   xmax := r.Right - r.Left;
   ymax := r.Bottom - r.Top;
   Inside := TPNGImage.CreateBlank(COLOR_RGBALPHA,8,xmax,ymax);
   BitBlt(Inside.Canvas.Handle,0,0,xmax,ymax,Source.Canvas.Handle,R.Left,R.Top,SRCCOPY);
   For i := 0 To ymax - 1 Do
      CopyMemory(Inside.AlphaScanline[i],pByte(dword(Source.AlphaScanline[i + R.Top]) + R.Left),xmax);
   OutPNG.Assign(Inside);
   FreeAndNil(Inside);
End;

[BOBAH13]

1. Лучше всего не связывать UI (TImage) с логикой программы (код)
2. Создайте отдельный, внутри функции, TBitmap, в нем отрисуйте все что надо
3. TImage.Picture := или Assign (вроде, Delphi уже давно не использую) и далее ваш временный TBitmap
4. TBitmap.Free();

[spamer]

BOBAH13, насчет гуи и логики - известно. На самом деле у меня есть несколько классов, которые ответственны за графику в программе (ибо приходится все самому рисовать...ну почти все)...вобщем между gui и логикой граница есть...
А вот код выше я привел просто что бы показать, что мне надо...ну что бы все полотно кода не выкладывать сюда...
Ай-ай-ай...точно, я про Assign() вовсе забыл, почему-то на Draw() зациклился был...
BOBAH13, еще раз спасибо, выручил...