Um den Fokusrahmen zu entfernen musst Du die Items selber Zeichnen, und diesen Trick anwenden:
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
With TListBox(Control) do begin
Canvas.FillRect(Rect);
// Text zeichnen
If (odFocused in State) then
DrawFocusRect(Canvas.Handle, Rect);
end;
end;