Memo - fazendo o sobreescrever

// Exemplo de como fazer um INSERT num memo

  TForm1 = class(TForm)

    Memo1: TMemo;

    Label1: TLabel;

    procedure Memo1KeyPress(Sender: TObject; var Key: Char);

    procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

  private

    FInserindo : Boolean;

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

  // só muda SelLength se SelLength for igual a 0

  if ((Memo1.SelLength = 0) and (not FInserindo)) then Memo1.SelLength := 1;

end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

  if (Key = VK_INSERT) and (Shift = []) then FInserindo := not FInserindo;

  Label1.Visible := FInserindo;

end;