Составить программу, которая выводит на рабочий стол набранный текст — Delphi(Делфи)

procedure TForm1.Button1Click(Sender: TObject);
var DC: HDC;
begin
  DC := GetWindowDC(GetDesktopWindow);
  SetBkMode (DC, TRANSPARENT);
  TextOut(DC, 150, 150, PChar(Edit1.Text), Length(Edit1.Text));
  ReleaseDC(GetDesktopWindow, DC);
end;