procedure TForm1.Button1Click(Sender: TObject);
var //Объявим парочку переменных
pass,mail,new_list:TStringList; //Наши переменные будут происходить из Strings
schet:integer; //счетчик
begin //начали
pass:=TStringList.create(); //инициализируем объект
mail:=TStringList.Create(); //инициализируем объект
new_list:=TSTRINGLIST.create(); //инициализируем объект
pass.LoadFromFile(LabeledEdit1.Text); //загружаем данные из указанного файла
mail.LoadFromFile(LabeledEdit2.Text); //загружаем данные из указанного файла
if pass.Count <> mail.count then showmessage('Количество строк в файле пассов и в файле мыльников не совпадает!!!') //проверяем кол-во строк
else //если все ок, то....
begin
for schet:=0 to pass.count-1 do //мутим цикл))))
begin
new_list.add(mail.Strings[schet]+';'+pass.Strings[schet]); //составляем новый листик
end;
new_list.SaveToFile(LabeledEdit3.Text); //сохраняем новый лист в файл
end;
end;