ブラシでスクリーンに字を書く

procedure TForm1.btn1Click(Sender: TObject);

var

  c:TCanvas;

begin

  c:= TCanvas.Create;

  c.Pen.Width  := 5;

  c.Font.Size := 20;

  c.Font.Name := '    ';

  c.Font.Color := clRed;

  c.Brush.Color := clBlack;

  try

    //c.Handle := GetDC(0);

    c.Handle := GetWindowDC(1181728); //              

    c.TextOut(20,20,'   BLOG');

  finally

    c.Free;

  end;

end;