例：
var
OldBkMode : integer;
OldTextColor : TColorRef;
R, G, B : Byte;
begin
...
//先需要先知道CANVAS上的背景色，算出R、G、B
...
with Panel1.Canvas do
begin
OldTextColor:= SetTextColor(Handle, RGB(R, G, B));//根据实际背景色设置
//字的前前景色
OldBkMode := SetBkMode(Handle, TRANSPARENT); //字体输出背景为透明
TextOut(10, 50, '任意颜色的字!');
SetBkMode(Handle, OldBkMode); //恢复背景输出模式
SetTextColor(Handle, OldTextColor); //恢复字体输出颜色
end;
...
