Bien... hace ya tiempo que programé esta sencilla aplicación... Es un editor de textos muy básico escrito en Delphi... tal vez a algunos les sirva de ejemplo... así que dejo el code y el rar con todos los archivos generados por el compilador...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    Archivo1: TMenuItem;
    Abrir1: TMenuItem;
    Guardar1: TMenuItem;
    Cerrar1: TMenuItem;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    Guardar2: TMenuItem;
    Edicin1: TMenuItem;
    Cortar1: TMenuItem;
    Copiar1: TMenuItem;
    Pegar1: TMenuItem;
    Acercade1: TMenuItem;
    Acercade2: TMenuItem;
    Nuevo1: TMenuItem;
    procedure Cerrar1Click(Sender: TObject);
    procedure Guardar1Click(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Guardar2Click(Sender: TObject);
    procedure Acercade2Click(Sender: TObject);
    procedure Nuevo1Click(Sender: TObject);
    procedure Cortar1Click(Sender: TObject);
    procedure Copiar1Click(Sender: TObject);
    procedure Pegar1Click(Sender: TObject);
  private
    { Private declarations }
    strArchivo: String;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Abrir1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
strArchivo := OpenDialog1.FileName;
end;
end;

procedure TForm1.Acercade2Click(Sender: TObject);
begin
ShowMessage('Editor de Textos' +#13+'By [Z]tuX 2011'+#13'Creado en Delphi');
end;

procedure TForm1.Cerrar1Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Copiar1Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;

procedure TForm1.Cortar1Click(Sender: TObject);
begin
  Memo1.CutToClipboard;
end;

procedure TForm1.Guardar1Click(Sender: TObject);
begin
if SaveDialog1.Execute Then
begin
Memo1.Lines.SaveToFile(SaveDialog1.Filename);
strArchivo := SaveDialog1.FileName;
end;
end;

procedure TForm1.Guardar2Click(Sender: TObject);
begin
if strArchivo = '' then
Guardar1Click(self)
else
Memo1.Lines.SaveToFile(strArchivo);
end;


procedure TForm1.Nuevo1Click(Sender: TObject);
begin
if Memo1.Text <> '' then
    if Application.MessageBox('¿Guardar Texto Actual?','Atención' ,
         MB_ICONQUESTION OR MB_YESNO ) = ID_YES then
      Guardar2Click( Self );
Memo1.Clear;
end;

procedure TForm1.Pegar1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;

end.

Bien aqui dejo el RAR con los archivos de este programa, por si quieren hechar un vistazo al code...
DESCARGA: http://www.mediafire.com/?cmxubc9f05htt2k

Captura:
 Salud[OS]