проблемы с прозрачностью AlphaBlend

with image2 do
  begin
  //выводим текст во временный  TImage c черным фоном
      Width :=screen.Width;
      Height := screen.Height;
      top:= 0;
      Left:=0;
// заполняем фон черным
      canvas.CopyMode := cmBlackness;
      Canvas.Copyrect(Rect(0,0,Image2.Width,Image1.Height),  tdc, Rect(0,0,Screen.Width,Screen.Height));
// убираем фон текста, устанавливаем шрифт цвет и выводим
      canvas.Brush.Style := bsClear;
      canvas.Font.Handle:=TempFont;
      canvas.Font.Color:= RGB(red,green,blue);
      Canvas.TextOut(tx, ty, str);
  end;
//настройки прозрачности
  Blend.BlendOp := AC_SRC_OVER;
  Blend.BlendFlags := 1;
  Blend.SourceConstantAlpha := 128; // прозрачность 50% (0 - 255)
  Blend.AlphaFormat := AC_SRC_ALPHA;
    //выводим текст на экран
  windows.AlphaBlend(dtc.Handle,0,0,screen.Width,screen.Height,image2.Canvas.Handle,0,0,screen.Width,screen.Height,blend);

  //ждем-с
 sleep(slp);
// ..обновляем
InvalidateRect(0, nil, true);