[Gravitas]

Код:

var h1,h3:HWND;    
begin
H1:=FindWindow(nil,'Безымянный - Блокнот');
if h1=0 then
  begin
  Application.MessageBox(PChar('Не найдено окно'), 'Увы :( ');
  exit
  end;
H3:=FindWindowEx(H1,0,'Edit','');
SendMessage(H3,WM_CHAR,0,Ord('D'));
end;