Hallo,
falls du die Eigenschaft MultiSelect für die Listbox aktiviert hast, dann kannst du folgenden Code ausprobieren.
Delphi-Quellcode:
function SelectLbxItem(Lbx: TListBox; Index: integer; Selected: boolean): boolean;
begin
Result:= Lbx.Perform(LB_SELITEMRANGE, Ord(Selected), MakeLParam(Index, Index)) <> LB_ERR;
end;
...
SelectLbxItem(ListBox1, 8, true);//den 9. Eintrag markieren
...