Вывести текст на эран без белого фона

[Mifig]

Ребят помогите хочу вывести текст на экран без фона. Делаю вот так:

var c: TCanvas;
begin
c := TCanvas.Create;
c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
c.TextOut(400,400,'hello');
c.Free

но всёровно с белым фоном получаеться.Пробывал без канвы вот так:

var
h:Thandle;
begin
h:=GetWindowDC(0);
SetTextColor(h,RGB(255, 0, 0));
SetBkMode(h, TRANSPARENT);
TextOut(h,200,200,'Hello',5);
end;

Всё теже грабли Может кто сталкивался с решением этой проблемы

[asmodey1]

Добавьте

c.Brush.Style:=bsClear;

[Mifig]

добавлял ничего не помогает(

[asmodey1]

Мда-а-а... Тяжелый случай...
Даю полный текст:

procedure TForm1.DeskTopPaint(Sender:Tobject);
var
DeskTop:TCanvas;
begin
DeskTop:=TCanvas.Create;
try
   DeskTop.Handle:=GetDC(0);// Получим Handle Рабочего стола
   DeskTop.Brush.Style:=bsClear; // Устанавливаем тип кисти
   With DeskTop.Font do // Подбираем шрифт
             Begin
             Color:=clwhite;
             Size:=13;
             Name:='Times New Roman';
             Style:=[fsBold];
             end;
   DeskTop.TextOut(70,10,Edit1.Text);
   ReleaseDC(0, DeskTop.handle);
finally
   DeskTop.Free; // Уберем за собой
end;

[Mifig]

И правдо тяжёлый))) под хп всё работает только что затестил на виртуальки, а вот с семёркой не выходит такое

[asmodey1]

Выкиньте всякие столь любимые вами украшалки с рабочего стола и все будет нормально.
Отвечаю из семерки. Только что опробовал данный мною вам код - никакого белого фона, даже при наличии фонового рисунка на рабочем столе...

[Mifig]

и правда затестил на чистой 7ке работает, спасибо буду выяснять в чем проблема(