Сравнить 2 массива

[Glob]

Есть два ListBox'a в одном 609100 элементов, а в другом может быть разное
Нужно сравнить 2 ListBox'a и если во втором есть строка, которой нет в первом, то записать ее в файл. Реализовал вот так:

for i := 0 to iend do
    begin
      ListBox1.ItemIndex:=0;
      pass2:=ListBox2.Items.strings[i];
      g:=0;
         for k:=0 to 609099 do
          begin
             pass1:=ListBox1.Items.strings[k];
             if pass1=pass2 then
              begin
              g:=1;
              Break;
              end;

           end;
       if g=0 then
           begin
            
            Append(good);
            writeln(good,  pass2);
             CloseFile(good);
            end;

      ListBox2.ItemIndex:=i;
    end;

работает нормально, но очень медленно. Я понимаю что первый массив не из маленьких, но ЦП у меня совсем не загружен во время работы. Как можно ускорить ?

[Stilet]

 for i := 0 to ListBox2.Items.Count-1 do begin
   if ListBox1.Items.IndexOf(ListBox2.Items[i])<>0 then 
      Запишем ListBox2.Items[i] в файл
 end;

Пойдет такое упрощение?
или же:

var s:string;
...
s:=ListBox1.Items.Text;
 for i := 0 to ListBox2.Items.Count-1 do begin
   if pos(ListBox2.Items[i],s)<>0 then 
      Запишем ListBox2.Items[i] в файл
 end;

[Glob]

Спасибо первый вариант прошел, но скорость работы увеличилась не сильно

[Stilet]

но скорость работы увеличилась не сильно

Набор данных в ЛистБоксе постоянный?
Если да, и поиск в нем нужен частый - составь таблицу индексов (отсортировав данные), и после бинарным поиском ищи - скорость возрастет во много раз.