Сравнение и поиск в двух ListBox

var
  vStringList: TStringList;
  i, j: Integer;
  vString: string;
begin
  vStringList := TStringList.Create;
  //Так как в первом листбоксе у нас нормальные адреса емейлов, то
  //Копируем строки только из второго ListBoxa в StringList
  for i := 0 to ListBox2.Count - 1 do
  begin
    vString := ListBox2.Items[i];
    j := Pos('@', vString);
    //адрес в формате andrei:Ukraine:werq@gmail.com
    while j <> 0 and (vString[j] <> ':') do
      Dec[j];
    vString := Copy(vString, j, Length(vString) - j + 1);
    vStringList.Add(vString);
  end;
  //Ищем совпадения
  for i := 0 to ListBox1.Count - 1 do
  begin
    //находим элемент из 1 листбокса в StringList'е
    j := vStringList.IndexOf(ListBox1.Items[i]);
    //Нашли совпадение
    if j >= 0 then
    begin
      //В третий листбокс добавляем найденный элемент.
      //Можно добавить "обрезанный" - тот который в StringList
      //или можно добавить оригинальный - он во втором Листбоксе
      ListBox3.Items.Add(ListBox2.Items[j]);
    end;
  end;
  vStringList.Free;

 while j <> 0 and (vString[j] <> ':') do

while (j <> 0) and (vString[j] <> ':') do

var
 i, j: integer;
begin
  for I := 0 to Listbox1.Items.Count - 1 do
   begin
     for j := 0 to Listbox2.Items.Count - 1 do
      begin
        if Listbox1.Items.Strings[i] = Listbox2.Items.Strings[j] then
           Listbox3.Items.Add(Listbox1.Items.Strings[i]);
      end;
   end;
end;

ListBox3.Items.Add(ListBox2.Items[j])

 begin
      ListBox3.Items.Add(ListBox2.Items[j]);
 end;

procedure TForm1.Button1Click(Sender: TObject);
 var
  i,j:integer;
  s:string;
begin
 for i := 0 to Listbox1.Items.Count - 1 do
   begin
 Edit1.Text:=ListBox1.Items[i];
     for j := 0 to Listbox2.Items.Count - 1 do
      begin
 if pos(Edit1.Text,ListBox2.Items[j])>0 then
    begin
     ListBox3.Items.Add(listbox2.Items.Strings[j]);
 end;
 end;
end;
end;

var
  i,j:integer;
 
begin
 for i := 0 to Listbox1.Items.Count - 1 do
   for j := 0 to Listbox2.Items.Count - 1 do
    if pos(ListBox1.Items.Strings[i],ListBox2.Items.strings[j])>0 then
         ListBox3.Items.Add(listbox2.Items.Strings[j]);
 
end;

var
  vStringList: TStringList;
  i, j: Integer;
  vString: string;
begin
  vStringList := TStringList.Create;
  //Так как в первом листбоксе у нас нормальные адреса емейлов, то
  //Копируем строки только из второго ListBoxa в StringList
  //При копировании "обрезаем" все лишнее
  for i := 0 to ListBox2.Count - 1 do
  begin
    vString := ListBox2.Items[i];
    j := Pos('@', vString);
    //адрес в формате andrei:Ukraine:werq@gmail.com
    while (j <> 0) and (vString[j] <> ':') do
      Dec(j);
    vString := Copy(vString, j + 1, Length(vString) - j + 1);
    vStringList.Add(vString);
  end;
  //Ищем совпадения
  //Только совпадения ищем ListBox1 и StringList
  for i := 0 to ListBox1.Count - 1 do
  begin
    //находим элемент из 1 листбокса в StringList'е
    j := vStringList.IndexOf(ListBox1.Items[i]);
    //Нашли совпадение
    if j >= 0 then
    begin
      //В третий листбокс добавляем найденный элемент.
      //Можно добавить "обрезанный" - тот который в StringList
      //или можно добавить оригинальный - он во втором Листбоксе
      ListBox3.Items.Add(ListBox2.Items[j]);
    end;
  end;
  vStringList.Free;

var
  i, j: Integer;
begin
  for i := 0 to ListBox2.Count - 1 do
  begin
    j := Pos('@', ListBox2.Items[i]);
    //адрес в формате andrei:Ukraine:werq@gmail.com
    while (j <> 0) and (ListBox2.Items[i][j] <> ':') do
      Dec(j);
    if ListBox1.Items.IndexOf(Copy(ListBox2.Items[i], j + 1, Length(ListBox2.Items[i]) - j + 1)) >= 0 then
     ListBox3.Items.Add(ListBox2.Items[i]);
  end;

var
  i,j:integer;
 
begin
 for i := 0 to Listbox1.Items.Count - 1 do
   for j := 0 to Listbox2.Items.Count - 1 do
    if pos(':'+ListBox1.Items.Strings[i],ListBox2.Items.strings[j])>0 then
         ListBox3.Items.Add(listbox2.Items.Strings[j]);
 
end;

..
// иначе добавляем найденный результат:
lstResult.Items.Add(mails1[i]);
...

// иначе добавляем найденный результат:
lstResult.Items.Add(lstSecond.Items.Strings[j]);