Окрасить уголки картинки в нужный цвет

[Evil_Net]

Пишу карточную игру, все неплохо, но есть одно но, проблема с дизайном. Есть заготовленные картинки игральных карт .png, с прозрачностью на уголках, так как карта не прямоугольная, а имеет округление по углам. Загружаю их в ImageList. Когда достаю их на форму, то прозрачные уголки исчезают и становятся белыми. Понял что такое происходит, так как при загрузки в ImageList идет конвертация в .bmp
Искал в интернете решение, нашел кое что, должно было закрашивать уголки в цвет форму, но не работает.

var i: integer;
  tempC: TComponent;
  clrForm: TColor;
begin
  clrForm:= rgb(120,144,120);
  //окрасить форму:
  frmMain.Color:= clrForm;
  //для всех компонентов Image установить свойства:
  for i:= 1 to 5 do begin
    tempC:= FindComponent('Image'+ inttostr(i));
    with TImage(tempC) do begin
      //закрасить фон, чтобы не было видно уголков карт:
      Canvas.Brush.Color:=  clrForm;
      Canvas.FillRect(ClientRect);
      //прозрачность:
      transparent:= true;
    end;
  end;
end;

[Evil_Net]

Хотя код работает, если в ImageList загружать .bmp, становится доступным параметр Transparent Color, в котором указываем цвет, который присутствует на картинке и который станет прозрачным. Но вот с .png такое не прокатывает. Вот только как теперь перегнать все эти картинки в .bmp еще не придумал.

[Evil_Net]

Решил проблему данным кодом + перегнал все картинки в .bmp, там где нужна была прозрачность закрашивал цветом #ff00ff, а при загрузке в ImageList в параметре Transparent Color выбирал Fuchsia =)

[IliaIT]

а можно было сделать что бы карта в .png была сделана задним фоном. (легко проверить в фотошопе, этот слой не доступен для редактирования). в этом случае была бы прозрачность и небольшой размер файла.