[Страдалецъ]

Ну и до кучи добавлю еще сюда вариант с rtf:

Код:

Var
  Stream: TStringStream;
begin
 Stream := TStringStream.Create;
 Stream.WriteString('{\rtf1\ansi\ansicpg1251\deff0{\fonttbl{\f0\froman\fcharset204 Times New Roman Cyr;}}\viewkind4\uc1\pard\lang1033\fs32 '+
                    'Результаты расчета: \u948\''3f\sub 1 \nosupersub = 250 Мпа и \u948 \''3f\sub 2 \nosupersub = 210 МПа}');
 Stream.Position := 0;
 RichEdit1.Lines.LoadFromStream(Stream);
 Stream.Free;
end;