Criando um simples editor de textos em delphi7

-------------------------------------------------------------------------------------
Tutorial escrito...

Vamos utilizar:

1 - opendialog (Dialogs)
1 - savedialog (Dialogs)
1 - fontdialog (Dialogs)
1 - XPManifest (Win32)
1 - MainMenu (Standard)
1 - memo (Standard)

-------------------------------------------------------------------------------------
Organize assim:

------------------------------------------------------------------------------------
Vamos mudar umas propiedades do memo...
Vá no ObjectInspector depois procure por LINES... Abra o painel de configuracao de lines e apague tudo o que tá escrito...

Ainda no ObjectInspector, vá em Scrollbars e deixe em ssBoth...

 Ainda no ObjectInspector vá em Align... e deixe em alClient...

-----------------------------------------------------------------------------
Agora vamos editar o Menu...
Dê um duplo clique no (MainMenu)... Irá aparecer uma caixa de configuração... Você irá teclar F11... depois de ter teclado o F11 você será rederecionado para o Caption daquele menu...
Veja se aconteceu isso...

No primeiro menu você deixa o caption com o nome de "Arquivo"
Depois de ter feito isso tecle enter...
Quando você teclar enter... ele automaticamente vai criar um submenu...
nesses submenus você vai fazer o que pede a imagem...

depois você vai cliar em um novo menu... é a mesma coisa do menu anterior...

No submenu ("Quebra de linha")... Você vai criar um submenu(para o submenu do menu)...
para isso você clica com o botão direito do mouse no submenu(Quebra de linha) e coloca criar submenu

Olha o resultado...

Nos submenus recem criados você irá fazer a mesma coisa dos outros anteriores...

---------------------------------------------------------------------------------------
Depois de ter feito tudo isso seu formulario irá ficar assim:

--------------------------------------------------------------------------------------
Vamos programar...
---------------------------------------------------------------------------------------
Código do submenu (novo)

Memo1.Clear;

---------------------------------------------
Código do submenu (Abrir)

if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Memo1.SetFocus;
end;

---------------------------------------------------
Código do submenu (Salvar)

if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

--------------------------------------------------------
Código do submenu (Sair)

Application.Terminate;

--------------------------------------------------------
Código do submenu (Quebra de linha => Sim)

Memo1.ScrollBars:=  ssVertical;

--------------------------------------------------------
Código do submenu (Quebra de linha => Não)

Memo1.ScrollBars:= ssBoth;  

--------------------------------------------------------
Código do submenu (Fonte)

if FontDialog1.Execute then
begin
Memo1.Font:= FontDialog1.Font;
end;

----------------------------------------------------------
Salve compile e teste...
Qualquer duvida postem nos comentarios...
--------------------------------------------------------