procedure ShowScreenText(const Txt: String; X, Y: Integer);

var

  Cnv: TCanvas;

  Rct: TRect;

begin

  Cnv:=TCanvas.Create;

  try

    Cnv.Handle:=GetDC(0);// Получим Handle Рабочего стола

    Cnv.Brush.Style:=bsClear; // Устанавливаем тип кисти

    With Cnv.Font do // Подбираем параметры шрифта

    Begin

      Color := clRed;

      Size := 15;

      Name := 'Times New Roman';

      Style := [fsBold];

    end;

    Rct.Left := X - 1;

    Rct.Top := Y - 1;

    Rct.Right := Rct.Left + Cnv.TextWidth(Txt) + 2;

    Rct.Bottom := Rct.Top + Cnv.TextHeight(Txt) + 2;

    Cnv.FillRect(Rct); //Заливаем прозрачным цветом

    Cnv.TextOut(X, Y, Txt); //Выводи на экран

    ReleaseDC(0, Cnv.handle); //Освобождаем канву

  finally

    Cnv.Free; // Уберем за собой

  end;

end;