[roman]

Inmediatamente después de

Código Delphi [-]
if (odSelected in State) then begin
  ListBox1.Canvas.Brush.Color := clGreen;
end;

intenta colocar este código

Código Delphi [-]
if odFocused in State then
begin
  ListBox1.Canvas.Brush.Style := bsClear;

  ListBox1.Canvas.Pen.Style := psDot;
  ListBox1.Canvas.Pen.Color := clRed;
  ListBox1.Canvas.Rectangle(Rect);

  DrawFocusRect(ListBox1.Canvas.Handle, Rect);
end;

Las tres líneas centrales pintarán un borde punteado de color rojo y la última línea borra el borde punteado por defecto.

Si omiten las líneas centrales simplemente evitarán el borde punteado que quizá es lo que se desee.

// Saludos