Собственно во всем разобрался, заминка только с этим:
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;
Есть решения? Спасибо за ответы :)