Png Tranparencia

[yojosee]

Buenas soy nuevo en esto de delphi , tengo un problema con 1 imagen png .Ante todo uso delphi 7 .Intente de 2 formas ,con fondo blanco no saca bien el fondo y con la imagen transparente queda todo como roto, que puedo hacer ?
Pd: Para agregar las png use GraphicEx

Este es el codigo de la parte de la imagen "creo"
FMain.brush.bitmap:=Image1.picture.bitmap;
nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width,
image1.picture.Graphic.Height);
for x := 1 to image1.picture.Graphic.Width do
for y := 1 to image1.picture.Graphic.Height do
if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
begin
tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
DeleteObject(tmpRegn);
end;
SetWindowRgn(FMain.handle, regn, true);

Fondo Blanco:
https://imagizer.imageshack.us/v2/812x557q90/909/Z4pFpX.jpg

Fondo Transparente:
https://imagizer.imageshack.us/v2/839x557q90/743/AcWROB.jpg

Desde ya les agradesco su tiempo ! graciass