Ошибка Access Violation в CreateProcess

procedure Tfrm_Main.RunDosInMemo (CmdLine: string; OutputMemo: TMemo);
const
  ReadBuffer = 2400;
var
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: PAnsiChar;
  BytesRead: DWord;
  Apprunning: DWord;
begin
  OutputMemo.Clear;
  Screen.Cursor := CrHourGlass;
 
  with Security do
  begin
    nLength := SizeOf(TSecurityAttributes);
    bInheritHandle := true;
    lpSecurityDescriptor := nil;
  end;
 
  if Createpipe(ReadPipe,
                WritePipe,
                @Security,
                0)
  then
    begin
      Buffer := AllocMem(ReadBuffer + 1);
      FillChar(Start, Sizeof(Start), #0);
      start.cb := SizeOf(start);
      start.hStdOutput := WritePipe;
      start.hStdInput := ReadPipe;
      start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
      start.wShowWindow := SW_HIDE;
 
 
      if CreateProcess(nil,
                       PChar(CmdLine),
                       @Security,
                       @Security,
                       true,
                       NORMAL_PRIORITY_CLASS,
                       nil,
                       nil,
                       start,
                       ProcessInfo)
      then
        begin
          repeat
            Apprunning := WaitForSingleObject(ProcessInfo.hProcess, 100);
            ReadFile(ReadPipe,
                     Buffer[0],
                     ReadBuffer,
                     BytesRead,
                     nil);
            Buffer[BytesRead] := #0;
            OemToAnsi(Buffer, Buffer);
            OutputMemo.Text := OutputMemo.text + string(Buffer);
 
            Application.ProcessMessages;
          until (Apprunning <> WAIT_TIMEOUT);
        end;
 
      FreeMem(Buffer);
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
      CloseHandle(ReadPipe);
      CloseHandle(WritePipe);
    end;
end;