[NumLock]

Код:

uses
  ComObj,

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
var
  WshShell: OleVariant;
begin
  WshShell:=CreateOleObject('WScript.Shell') ;;
  WshShell.Run('notepad', 1, False);
  Sleep(500);
  WshShell.SendKeys('hello, world', True);
  WshShell.SendKeys('{ENTER}', True);
  WshShell.SendKeys('Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms', True);
  WshShell.SendKeys('{ENTER}', True);
end;