[EraM]

Это как?

Так:

Код:

type
  // Кодовая страница для ANSI-кириллицы - 1251
  CyrillicString = type Ansistring(1251);

var t:  CyrillicString;
...
...
...
t:= 'тема';
MMessage.Subject := t;