1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

uses windows {...} ;
// ...
public  { Public-Deklarationen }
   procedure MemoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
   // beim Erstellen jeden Memos wird Memo.OnKeyDown:=MemoKeyDown; zugeordnet
end;
{...}
procedure TForm1.MemoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var m:TMemo; s:string; c:integer;
begin m:=TMemo(Form1.FindComponent('MPC'+IntToStr(PageControl1.ActivePageIndex+1)));
      if m = nil then exit; 
      // habe mehrere Memos zur Laufzeit erstellt und checke, welches aktiv ist
      
      if key = vk_insert then // Wechseln zwischen Überschreiben und Einfügen
       begin if m.Tag=0 then m.Tag:=1 else m.Tag:=0;
             if m.Tag=1 then Form1.StatusBar1.Panels.Items[4].Text:='Overwrite';
             if m.Tag=0 then Form1.StatusBar1.Panels.Items[4].Text:='Insert';
             exit;
       end;
      // Es werden nur Buchstaben und Zahlen überschrieben
      if ( Key >= ord('0') ) and // Taste Zahlen beginnt bei key=48
         ( key <= ord('z') ) and // Taste Buchstaben endet bei key=122
         ( m.Tag = 1 ) then // Am Memo.Tag wird der Modus erkannt
         ( m.SelLength = 0 ) and // Nur wenn nichts im Memo markiert ist
         ( m.SelStart < length(m.Text) ) and // Nicht am Ende des Memos
         ( Shift = [] ) then // Keine Sondertastenkombination
          begin s:=m.Text; // s weil delete nicht mit const m.Text arbeitet
                c:=m.SelStart; // Cursorposition sichern
                delete(s,m.SelStart+1,1); // folgendes Zeichen löschen
                m.Text:=s; m.SelStart:=c; // m.Text verändern, Cursor setzen
          end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

//...
var
  Form1: TForm1;
const
  INS : array [0..1] of String = ('Insert', 'Overwrite');

implementation

{$R *.DFM}
procedure TForm1.MyMemoEnter(Sender: TObject);
begin
  with TEdit(Sender) do
    StatusBar1.Panels.Items[0].Text := INS[Tag];
end;

procedure TForm1.MyMemoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with TEdit(Sender) do
    if Key = VK_INSERT then // Wechseln zwischen Überschreiben und Einfügen
      begin
      Tag := Tag xor 1;
      StatusBar1.Panels.Items[0].Text := INS[Tag];
      end;
end;

procedure TForm1.MyMemoKeyPress(Sender: TObject; var Key: Char);
begin
  with TEdit(Sender) do
    if Tag = 1 then
      if SelLength = 0 then
        if Key in [#32..#126,#128..#255] then
          begin
          SelLength := 1;
          if (SelLength > 0) and (SelText[1] = #13) then
            SelLength := 0;//Zeilenumbrüche nicht überschreiben = Standard
            //SelLength := 2;//alternativ auch Zeilenumbrüche überschreiben
          end;
end;