1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var i,searchlen,itmlen,posresult:integer;
    searchstr:string;
begin
searchstr:='123'; //deine suchvariable
searchlen:=length(searchstr);
for i:=0 to listbox1.Items.Count-1 do
  begin
  posresult:=pos(searchstr,listbox1.Items.Strings[i]);//zeichenkette vorhanden?
  itmlen:=length(listbox1.Items.Strings[i]);
  if (posresult<>0) and (searchlen=itmlen) then //wenn das item nur aus dieser zeichenkette besteht dann
    listbox1.Selected[i]:=true
  else
    listbox1.Selected[i]:=false;
  end;