ヘルプのように、editに文字を入れたらリストの選択行を
設定したいのですが、Pos関数の戻り値が全て0になってしまいます。
何がいけないのでしょうか？

eはTedit、llはTlistboxです。


var ret,i:integer;
begin
for i:=0 to ll.Count -1 do
begin
if pos(UpperCase(ll.Items.Strings[i]), UpperCase( e.Text))<>0 then
begin
ll.ItemIndex :=i;
exit;
end;
end;
end;