Auf eine bestime Farbe zeichnen ?

[Delphiturbo]

Hallo,

mit dem Code wird einen Text auf PC-Desktop gezeichnet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 MyHand: HWND;
 MyDc: HDC;
 MyCanvas: TCanvas;
 TransText: string;
begin
 TransText:='Hallo';
 MyHand := GetDesktopWindow;
 MyDc := GetWindowDC(MyHand);
 MyCanvas := TCanvas.Create;
 MyCanvas.Handle := MyDC;
 BeginPath(MyCanvas.Handle);
 MyCanvas.Font.Color := clwhite;
 MyCanvas.Font.Name := 'Arial';
 MyCanvas.Font.Size := 80;
 SetBkMode(MyCanvas.Handle,TRANSPARENT);
 EndPath(MyCanvas.Handle);
 MyCanvas.TextOut(100,100,TransText);
end;

Ich möchte den Text aber nur auf bestimmte Farbe in Desktop zeichnen
Wer weiß was