So, ich habe es mit folgendem Code gelöst.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
lbitem: TListBoxItem;
begin
for I := 0 to Listbox1.Items.Count-1 do begin
lbitem:=ListBox1.ItemByIndex(i);
lbitem.Selectable:=false;
end;
end;