Dê um clique duplo no MainMenu, selecione o item Novo e vá até o evento OnClick, pois a ação será executada quando o usuário clicar no menu. Digite o seguinte código que irá limpar o memo para a inserção de um novo texto:

  memo1.Clear;

No evento OnClick do menu Abrir, digite o seguinte código:

  opendialog1.Execute;
  memo1.Lines.LoadFromFile(opendialog1.FileName);
  memo1.SetFocus;
  statusbar1.Panels[0].Text:='Arquivo Aberto';

O objeto OpenDialog é o responsável por abrir a tela onde podemos escolher o arquivo a ser aberto. O código acima desta fazendo o seguinte: execute o objeto OpenDialog, carregue o arquivo selecionado pelo OpenDialog para o objeto Memo, coloque o cursor no Memo e exiba a mensagem “Abrindo arquivo” no StatusBar (lembre-se de criar um panel no mesmo como fizemos na calculadora).

Para o menu Salvar, digite o seguinte código em seu evento Onclick:

Código do evento OnClick do menu Salvar

Neste código criamos uma variável chamada “nome_arquivo” para receber o nome do arquivo e uma variável chamada “i” para nos dizer se existe algum caractere “.” No nome do arquivo, pois se existir, suposmos que o usuário já especificou a extensão “.txt”.

Se o “i” for igual a zero significa que não foi achado o caractere “.” no nome do arquivo e então acrescentamos a extensão “.txt”. Utilizamos o método SaveToFile para armazenar o conteúdo do Memo em um arquivo texto simples.

No menu Editar, selecione o item Copiar e no evento OnClick digite o código:

memo1.CopyToClipboard;

O método CopyToClipboard copia tudo o que estiver no Memo para a área de transferência.

Selecione o menu Recortar e digite o código também no evento OnClick:

memo1.CutToClipboard;

O método CutToClipboard funciona da mesma maneira que a função anterior, só que recorta ao invés de copiar.

Selecione o Menu Colar e aplique o código abaixo no evento OnClick:

  memo1.PasteFromClipboard;

O método PasteFromClipboard cola o que estiver na área de transferência.

No menu Formatar, selecione o item Fonte e vá até o evento OnClick. Digite o código abaixo:

  fontdialog1.Execute;
  memo1.Font:=fontdialog1.Font;

Este código executa o objeto FontDialog e aplica ao Memo a fonte que foi definida pelo usuário.

Agora vamos até o menu Fundo > Azul e aplique o código abaixo ao evento Onclick:

  memo1.Color:=clBlue;

Estamos dizendo que o Memo na propriedade Color receberá a cor clBlue (Azul). Faça o mesmo para as outras cores deste submenu com base nos dados a seguir: Vermelho = clRed, Branco = clWhite, Amarelo = clYellow e Verde = clGreen.
Na opção Outra, vamos chamar o objeto ColorDialog que disponibiliza todas as cores disponíveis. Para isso, digite o código abaixo no evento OnClick:

  colorDialog1.Execute;
  memo1.Color:=colordialog1.Color;