Перенос старого кода на FMX

[apromix]

Собственно во всем разобрался, заминка только с этим:

1. Залить канву одним цветом:

  BG.Canvas.Brush.Color := clBlack;
  BG.Canvas.FillRect(Rect(0, 0, fMain.ClientRect.Right, fMain.ClientRect.Bottom));

2. Отрисовать на канве изображение .png с прозрачностью:

fMain.Canvas.Draw(0, 0, BG);

 

3. Текст на канве:

procedure TextOut(const AX, AY: Integer; const AText: string; AColor: Integer);
begin
  BG.Canvas.Font.Color := AColor;
  BG.Canvas.TextOut(AX * CharWidth, AY * CharHeight, AText);
end;

Есть решения? Спасибо за ответы :)

[krapotkin]

Вообще не понял вопрос

http://docwiki.embarcadero.com/Libraries/Tokyo/en/FMX.Graphics.TCanvas_Methods

что из этого вызывает затруднения?