Editor de texto

Novo

    Memo1.Clear;
    Memo1.SetFocus;

    -----------------------------------------
    Abrir

    if openDialog1.Execute then
    begin
    memo1.Lines.LoadFromFile(OpenDialog1.Filename);
    memo1.setfocus;
    end;

    -----------------------------------------

    Botão Salvar

    if save.execute then
    begin
    memo1.Lines.SaveToFile(save.Filename);
    end;

    -----------------------------------------
    Copiar
    Memo1.CopytoClipBoard;

    -----------------------------------------
    Colar

    Memo1.PasteFromClipboard; ;

    -----------------------------------------
    Recortar

    Memo1.CutToClipBoard

    -----------------------------------------
    Fonte

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