добавил точки PLength (Data) и onPost (event)

Как сделать цикл:

while (размер полученных данных) <> PLength do begin
StdIn := GetStdHandle(STD_INPUT_HANDLE);
Size := SetFilePointer(StdIn, 0, nil, FILE_END);
SetFilePointer(StdIn, 0, nil, FILE_BEGIN);
SetLength(InParams,Size);
if (Size <= 0) then Exit;
if ReadFile(StdIn, InParams[1], Size, Actual, nil) then begin
_hi_OnEvent(_event_onPost, InParams); - выдавать считанные данные в поток