1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  fHandle: HWND;
begin
  fHandle := FindWindow('notepad', nil);
  SetForeGroundWindow(fHandle);
  fHandle := FindWindowEx(fHandle, 0, 'Edit', nil);
  Sleep(200);
  if fHandle <> 0 then begin
    //SendMessage(fHandle, WM_CHAR, Ord('E'), 0);
    SendMessage(fHandle, WM_KEYDOWN, Ord('E'), $000000000);
    SendMessage(fHandle, WM_KEYUP,  Ord('E'), $C0000000);

    //keybd_event(Ord('E'),0,0,0);
    //keybd_event(Ord('E'),0,KEYEVENTF_KEYUP,0);
  end;