[BuRtOn]

Saludos amigos, miren lo que pasa es que me dejaron un programa y es un editor de texto, el programa contiene readibuttons , estatic text, memos, y es igual a lo que hacemos aqui cuando enviamos un mensaje, que tiene la opcion de negrita , cursiva, subrayado, tamaño de letra, tipo de letra, y un campo donde editamos nuestro texto, pero no tengo ni ideaaaa, como hacen para importar las fuentes de las letras, y no solo eso, no tengo ni idea como hacer para que el texto herede las caracteristicas que yo le doy, y lo unico que me dijo un profesor, fue que mirara el richedit, algo asi, enserio que es algo recomplicado para mi, por que no hemos visto ni los ciclos repetitivos, miren el codigo que me dio la profesora fue este, pero no funciona y que teniamos que hacer que funcione, solicito que me ayuden, no a hacer el trabajo, pero si que me digan como hago para heredar el tipo de letra y tamaño etc, y para importar los tipos de letras:

Código Delphi [-]
unit ufrmEditor;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Menus;
type
  TfrmEditor = class(TForm)
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    MainMenu1: TMainMenu;
    Archivo1: TMenuItem;
    Abrir1: TMenuItem;
    Guardar1: TMenuItem;
    N1: TMenuItem;
    Salir1: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Salir1Click(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Guardar1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmEditor: TfrmEditor;
implementation
uses Math;
{$R *.dfm}
procedure TfrmEditor.FormActivate(Sender: TObject);
begin
  ListBox1.Items := Screen.Fonts;  
end;
procedure TfrmEditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  If MessageDlg('¿Realmente desea salir?', mtInformation,[mbYes,mbNo],0)=mrYes then
    Action:=caFree
  else
    Action:=caNone;
end;
procedure TfrmEditor.Salir1Click(Sender: TObject);
begin
  Close;
end;
procedure TfrmEditor.Abrir1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TfrmEditor.Guardar1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end.

esto es todo, por favor es urgente amigos, se supone que es para mañana, pero no es justo, me lo dejo hoy, y no nos dice ni pio, ni pistas, espero que me colaboren..