السلام عليكم ورحمة الله
وكل عام وانتم بخير
بخصوص ارسال ايميل عن طريق tidsmtp & idmessage
من يدلني على الخطأ الذي تنتج عنه رسالة الخطأ المرفقة في هذه الصورة 
والكود المكتوب هو زر تنفيذ العملية هو :
procedure TFSendEmail.BitBtn1Click(Sender: TObject);
var
M: TIdMessage;
SMTP: TIdSMTP;
i:integer;
begin
M := TIdMessage.Create(nil);
M.From.Text := 'kgl_info@yahoo.com';
M.Recipients.Add;
M.Recipients.Items[0].Text := 'kgl_info@yahoo.com';
M.Subject := 'Test111111111';
M.Body.Add('Hello');
SMTP := TIdSMTP.Create(nil);
//SMTP.AuthType := atLogin;
SMTP.Password:='password';
SMTP.Username:='login';
SMTP.Host := 'pop3.mail.com';
SMTP.Connect;
if SMTP.Connected then
begin
For i:=1 to 3 do begin
SMTP.Send(M);
//Gauge1.Progress:=i;
Application.ProcessMessages;
end;
SMTP.Disconnect;
end;
end;تقبلوا تحياتي
