public

procedure WriteText(TransText: string);

{ Public declarations }

end;

var

Form1:TForm;

implementation

{$R *.dfm}

procedure TForm1.WriteText(TransText: string);

var

MyHand: HWND;

MyDc: HDC;

MyCanvas: TCanvas;

begin

MyHand := GetDesktopWindow;

MyDc := GetWindowDC(MyHand);

MyCanvas := TCanvas.Create;

MyCanvas.Handle := MyDC;

BeginPath(MyCanvas.Handle);

MyCanvas.Font.Color := clyellow;

MyCanvas.Font.Name := 'Courier New';

MyCanvas.Font.Size := 25;

SetBkMode(MyCanvas.Handle, TRANSPARENT);

EndPath(MyCanvas.Handle);

MyCanvas.TextOut(0, 0, TransText);

end;