Que parpade un Texto en el StatusBar

[[BlueSteel]]

Holas

Estaba realizando lo que me indican pero no es mucho lo que aparece, o simplemente no me funca bien...

tengo el siguiente procedimiento que se dispara cuando ocurre una condicion

Código Delphi [-]
procedure TIngreso_Reg.Mensaje_Bloquea;
begin
     sBarra.Panels[0].Text:= 'BLOQUEADO';
     sBarra.Panels[0].Style:= psOwnerDraw;
     Bloquea.Interval:= 500;
end;

y tambien tengo el siguiente codigo para el panel0 del statusbar

Código Delphi [-]
procedure TIngreso_Reg.sBarraDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
case Panel.Index of
    0:if sw then    // Panels[0]
      begin
      sBarra.Font.Color:= clBlack;
      end
      else
      begin
       sBarra.Canvas.Font.Color:= clBtnFace;
      end;
  end;
  sBarra.Canvas.FillRect(Rect);
  sBarra.Canvas.TextOut(Rect.Left,Rect.Top-2, Panel.Text);
end;

Ahora, si bien cambia el texto que existe, no hace un parpadeo... y lo que me interesa es realizar un parpadeo más notorio

igual, seguiré intentando...

tambien estoy tratando de que me muestre y oculte una imagen unas 10 veces para que se note el parpadeo, pero no me funciona bien...
gracias