一个很土的例子;
var
MyFont TFont;
begin
MyFont:=TFont.Create;
MyFont.Charset:=GB2312_CHARSET;
MyFont.Name:='繁琥珀';
MyFont.Size:=25;
MyFont.Color:=clGreen;
RichEdit1.SelAttributes.Assign(MyFont);
RichEdit1.Lines.Add('这是第一行!');
MyFont.Name:='隶书';
MyFont.Size:=10;
MyFont.Color:=clBlue;
RichEdit1.SelAttributes.Assign(MyFont);
RichEdit1.Lines.Add("试试如何!");
MyFont.Free;
end.