[NumLock]

Код:

var
  hNotepad: THandle;
  hEdit: THandle;
begin
  hNotepad:=FindWindow('Notepad', nil);
  if hNotepad=0 then raise Exception.Create('!Notepad');
  hEdit:=FindWindowEx(hNotepad, 0, 'Edit', nil);
  if hEdit=0 then raise Exception.Create('!Edit');
  SendMessage(hEdit, WM_PASTE, 0, 0);
end;