ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);
var
  IdSMTP: TIdSMTP;
  idMessage: TidMessage;
begin
  idMessage := TIdMessage.Create(nil);
  try
    with idMessage do
    begin
      Recipients.Add.Address :='lol@mail.ru';{ кому отправляем }
      Subject :='Привет с античата!';{Тема}
      From.Address := 'Inter@yandex.ru';{ свое мыло }
      Body.Text := 'Добрый день'+#13+
      'Я знаю Delphi';
    end;
    IdSMTP := TIdSMTP.Create(nil);
    with IdSMTP do
      try 
        Host := 'smtp.ukrwest.net'; { сервер исходящей почты }
        Connect; 
        Send(idMessage); 
        Disconnect;
      finally 
        Free; 
      end;
  finally
    Free;
  end;
end;

WinExec('cmd /c copy c:\1.txt c:\2.txt',SW_HIDE);