Programm mit CreateProcess starten

[Gargamel]

OK, es soll ein Programm mit CreateProcess gestartet werden. Leider zuckt sich nix.
Hier ist der Quellcode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var CommandLine:string;
    Dir:PChar;
    StartUpInfo: TStartUpInfo;
begin
  CommandLine:='C:\Windows\notepad.exe';
  Dir:=PChar('C:\');
  CreateProcess(nil,
                PChar(CommandLine),
                nil,
                nil,
                false,
                0,
                nil,
                Dir,
                StartUpInfo,
                ProcInfo);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TerminateProcess(ProcInfo.hProcess,null);
end;

ProcInfo: Process_Information; wurde global deklariert.

Was mache ich falsch?