[NumLock]

Код:

  Memo1.Perform(EM_SETSEL, 7, 7);
  Memo1.Perform(WM_CHAR, DWORD('_'), 0);
  Clipboard.AsText:='12345';
  Memo1.Perform(WM_PASTE, 0, 0);