PNG с другим цветом прозрачности

[FelixKoT]

Вот нужно мне сейчас загрузить в Image1 PNG изображение, что бы можно было работать с пикселями Image1 (Image1.Canvas.Pixels[X,Y]). Сейчас я использую такой код:

procedure PngtoBmp(FileS: string);
var
 png: TPNGObject;
 bmp: tbitmap;
begin
 png := TPNGObject.create;
 try
 png.loadfromfile(FileS);
 bmp := tbitmap.create;
 try
 bmp.assign(png);
 bmp.savetofile(FileS+'.bmp');
 finally
 bmp.free
 end;
 finally
 png.free
 end;
 exit;
end;

procedure TForm38.Button3Click(Sender: TObject);
var
 TmpBmp: TBitmap;
begin
  TmpBmp := TBitmap.Create;
  PngtoBmp('G:\tmp.png');
  TmpBmp.LoadFromFile(FileSkin+'.bmp');
  Image1.Picture.Assign(TmpBmp);
end;

но так все прозрачные пиксели заливаются чёрным цветом. Как можно заменить все прозрачные пиксели на какой-нибудь свой цвет, например $ff01ff?

[mihali4]

Проще скачать модуль TPNGImage и его использовать:
http://delphidevelop.ru/publ/12-1-0-174

[FelixKoT]

Если с помощью TPNGImage загрузить изображение с индексированным цветом (Indexed color), то альфа канал или не определится, или закрасит большую половину картинки прозрачными пикселями.
+ работать с Canvas уже не получается.

Новый вопрос: как с помощью дельфи переконвертировать PNG из Indexed color в RGB color? В поиске ничего подобного не нашёл..

Неужели нету ни одного способа конвертации png из 8 bit В 16?