Написать функцию которая возвращает несколько результатов ?

bool __fastcall MyThread1::StartDataRead(как передать из функции BufferData1 ?, как передать из функции BytesRead1 ?, как передать в функцию BytesLength1 ?)
{
  OVERLAPPED ReadOL;
  DWORD WFSO;
  //-------------------------------------------------------------------------
  memset(&ReadOL, 0, sizeof(ReadOL));
  ReadOL.hEvent = CreateEvent(NULL, TRUE, TRUE, NULL);
  if(ReadOL.hEvent == NULL)
  {
    Form1->Memo1->Lines->Add("Ioeaea CreateEvent");
    CloseHandle(HidHandle);
    CloseHandle(ReadOL.hEvent);
    return 0;
  }
  //-------------------------------------------------------------------------
  if(!ReadFile(HidHandle, BufferData1, BytesLength1, &BytesRead1, &ReadOL))
  {
    Form1->Memo1->Lines->Add("Ioeaea aneio?iiiiai ?oaiey ReadFile");
    CloseHandle(HidHandle);
    CloseHandle(ReadOL.hEvent);
    return 0;
  }
  //-------------------------------------------------------------------------
  WFSO = WaitForSingleObject(ReadOL.hEvent, INFINITE);
  if(WFSO == WAIT_OBJECT_0)
  {
    if(!GetOverlappedResult(HidHandle, &ReadOL, 0, 1))
    {
      Form1->Memo1->Lines->Add("?acoeuoao ?oaiey ia iieo?ai GetOverlappedResult");
      CloseHandle(HidHandle);
      CloseHandle(ReadOL.hEvent);
      return 0;
    }
    else
    {
      Form1->Memo1->Lines->Add("?acoeuoao ?oaiey iieo?ai GetOverlappedResult");
    }
  }
  else
  {
    Form1->Memo1->Lines->Add("IOEAEA WaitForSingleObject");
    CloseHandle(HidHandle);
    CloseHandle(ReadOL.hEvent);
    return 0;
  }
  //-------------------------------------------------------------------------
  CloseHandle(ReadOL.hEvent);

  return 1;
}