تبدیل Text معمولی به RTF و تعریف مشخصه؟

[FirstLine]

با سلام
چجوری میشه یه Text معمولی را به RTF با فونت (مثلا BZar & Size 14) تبدیل کرد؟
آیا میشه تعریف کرد که دو خط اول نوشته با فونت مثلا 16 پر رنگ و بقیه با فونت 14 معمولی باشه؟
با تشکر

[a_b_toops]

function TForm1.CurrText: TTextAttributes;
begin
if RichEdit1.SelLength > 0 then Result := RichEdit1.SelAttributes
else Result := RichEdit1.DefAttributes;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
mm:TMemoryStream;
begin

mm:=TMemoryStream.Create;
mm.LoadFromFile('t1.txt');
RichEdit1.Lines.LoadFromStream(mm);
mm.Free;
CurrText.Name := FontName.Items[FontName.ItemIndex];
RichEdit1.Lines.SaveToFile('1.rtf');

end;

[rmb_ali]

میشه لطفی بکنبد در این مورد بیشتر توضیح بدید