[Delphi] poslanie mail pomocou idSMTP

procedure OdesliMail;
begin
  NMSMTP1.Host := `smtp.seznam.cz`;
  NMSMTP1.UserID := `NovakJan`;
  NMSMTP1.Port:=25;
  NMSMTP1.Connect;
  NMSMTP1.PostMessage.FromAddress := `Novak.Jan@server.cz`;
  NMSMTP1.PostMessage.ToAddress.Text := `Novak.Franta@email.cz`;
  NMSMTP1.PostMessage.ToCarbonCopy.Text := `Novak.Josef@email.cz`;
  NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := `Novak.Vaclav@post.cz`;
  NMSMTP1.PostMessage.Body.Text := `Toto je vlastní text zprávy`;
  NMSMTP1.PostMessage.Attachments.text := `c:\Soubor.txt`;
  NMSMTP1.PostMessage.Subject := `Zde je subjekt zprávy`;
  NMSMTP1.SendMail;
  showmessage(`Email byl odeslán !`);
  NMSMTP1.Disconnect;
end;

Uses ...nmsmtp;   {This needs to be added to your Uses statement}

nmsmtp:=tnmsmtp.create(self);
nmsmtp.Host:='127.0.0.1';
nmsmtp.PostMessage.Body.Clear;
nmsmtp.PostMessage.Subject:='Subject goes here';
nmsmtp.PostMessage.Body.Add('body of email goes here');  {add as many lines as you want}
nmsmtp.PostMessage.FromAddress:='nlath@wherever.com';
nmsmtp.PostMessage.FromName:='nlath';
nmsmtp.PostMessage.ReplyTo:='nlath@wherever.com';
nmsmtp.PostMessage.ToAddress.Add('jim@splurge.com');  {you can have lots of recipients}
nmsmtp.postmessage.CarbonCopyAddress.Add('nlath@wherever.com'); {ditto cc}
nmsmtp.Connect;
nmsmtp.SendMail;
nmsmtp.Disconnect;