Проблема с кодировкой письма.

[Cyrix]

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdSMTP1.UserName:='логин@mail.ru';
 IdSMTP1.Password:='пасс';
 IdSMTP1.Host:='smtp.mail.ru';
 IdSMTP1.Port:=25;
 IdMessage1.From.Name:='Яша';
 IdMessage1.Subject:='Читай';
 IdMessage1.Body.Text:='Текст';
 IdMessage1.From.Address:='логин@mail.ru';
 IdMessage1.Recipients.EMailAddresses:='получатель@mail.ru';
 IdSMTP1.Connect;
 IdSMTP1.Send(IdMessage1);
 IdSMTP1.Disconnect;

"Яша" и "Читай" - иероглифами.

[deathNC]

Не знаю точно, но попробуй так:

 IdMessage1.From.Name := StrToUTF8('Яша');
 IdMessage1.Subject := StrToUTF8('Читай');