begin
 IdSMTP1.Host:='smtp.port.net';
 IdSMTP1.Username:='amp@port.com';
 IdSMTP1.Password:='*******';
 IdSMTP1.Connect(60000);
//
 IdMessage1.CharSet:='windows-1251';
 IdMessage1.ContentTransferEncoding:='8bit';
 IdMessage1.ContentType:='text/plain'; // Письмо в текстовом виде
 IdMessage1.Subject:=AnsiToUTF8('Пересылка письма'); // Тема письма
 IdMessage1.Recipients.EMailAddresses:='grig @mail.ru'; // EMail- Кому
 IdMessage1.From.Name:=AnsiToUTF8('ОАО ГРИГ'); // От кого - будет в списке писем "от кого"
 IdMessage1.From.Address:='amp@port.net'; // EMail-От кого;
 IdMessage1.Body.Add(AnsiToUTF8('Пересылка письма удалась!'));
 IdSMTP1.Send(IdMessage1);
 if IdSMTP1.Connected then IdSMTP1.Disconnect;

IdMessage1.ContentType:='text/plain; windows-1251';
//  IdMessage1.CharSet:='windows-1251';