type
  TClientImage = record
    codeBase : Pointer;
    codeSize : SIZE_T;

    rdataBase : Pointer;
    rdataSize : Cardinal;

    dataBase : Pointer;
    dataSize : SIZE_T;

    rdataBuff : Pointer;
    dataBuff :  Pointer;
    codeBuff :  Pointer;

    hProcess : THandle;
  end;


var
  cln : TClientImage;
  LoadedImage : PLoadedImage;
...
  LoadedImage := ImageLoad(PAnsiChar(AnsiString(client.FullPath)),nil);
...//проверки

  FillChar(cln, SizeOf(cln), 0);
  cln.codeBase := Pointer(LoadedImage.FileHeader.OptionalHeader.BaseOfCode + LoadedImage.FileHeader.OptionalHeader.ImageBase);
  cln.codeSize := LoadedImage.FileHeader.OptionalHeader.SizeOfCode;

  CreateProcessResult := CreateProcess(nil, PChar(CMDLine), nil, nil, False, CREATE_DEFAULT_ERROR_MODE or CREATE_UNICODE_ENVIRONMENT or CREATE_SUSPENDED, nil, PChar(ExtractFilePath(client.FullPath)), s_i, p_i);
  if CreateProcessResult then
  begin
    cln.hProcess := p_i.hProcess;

    GetMem(cln.codeBuff, cln.codeSize);
    GetMem(cln.dataBuff, cln.dataSize);

      BytesReaded := 0;
      Res := ReadProcessMemory(cln.hProcess, cln.codeBase, cln.codeBuff, cln.codeSize, BytesReaded);
...
      if cln.codeSize <> bytesReaded then
        LastErrorCode := GetLastError;
//в Res - False, в LastError - 998.