How to correctly use TJvCreateProcess to redirect "cmd.exe" for input and output forever in windows console program ?

[sum2012]

I am using Delphi 11.
For attach code,I need to input 2 times command (dir) to see the output.
JVProcessTest.zip
edit : the code paste in gist
https://gist.github.com/sum2012/c7f1ca5ed2adf266b6eed8cfed577de6

[sum2012]

In Free pascal, I asked GTP to do the same function code which work,
https://gist.github.com/sum2012/a64478bde210ac40c110f5e4cbdc9f98

[sum2012]

In delphi ,I take a search with "CreateProcess crash with STARTF_USESTDHANDLES",I see "ANSICHAR thing" so that I change to CreateProcessA.
It finally can run
https://gist.github.com/sum2012/a64478bde210ac40c110f5e4cbdc9f98
But it is same result with TJvCreateProcess,You need input 2 times of command (dir) to see the output.
edir:Get lucky fixed.
Change to if ReadFile(FReadPipe, Buffer, SizeOf(Buffer)-1, BytesRead, nil) then
https://gist.github.com/sum2012/0891864a43a5ab90b1386e48ff459537
I am not interested to fix TJvCreateProcess