[Asinkrit]

Код:

procedure TForm1.Search;
var
  n: integer;
  substr: String;
  s: String;
begin
for n:=0 to ListBox1.Count-1 do
 begin
 substr:=Edit1.Text;
 s:=ListBox1.Items[n];
 if Pos(substr,s)=1 then LoadCharacter(n);
 end;
end;