[[cHackAll]]

Código Delphi [-]
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 PostMessage(FindWindowEx(FindWindow('Notepad', nil), 0, 'Edit', nil), WM_KEYDOWN, Key, 0);
end;

Simple, Avanzado

PD; Apoyo lo dicho por cmm07

Suerte