#include <wchar.h>

struct scan_context_t {
  const wchar_t* text; // не обязан завершаться нулём
  int text_len;
  int pos;
  int line_end;

  // результат scan_cell
  const wchar_t* cell; // не завершается нулём
  int cell_len;
};

void init_scan(scan_context_t* context, const wchar_t text[], int text_len = -1) {
  context->text = text;
  context->text_len = (text_len != -1 ? text_len : static_cast<int>(wcslen(text)));
  context->pos = 0;
}

bool begin_scan_row(scan_context_t* context) {
  const wchar_t* sep = wmemchr(context->text + context->pos, L'\n', context->text_len - context->pos);
  if (sep != NULL) {
    int sep_pos = sep - context->text;
    if ((sep_pos >= 1) && (context->text[sep_pos - 1] == L'\r')) // если '\r' перед '\n'
      context->line_end = sep_pos - 1; // не включаем '\r' в последнюю ячейку
    else
      context->line_end = sep_pos;
  } else {
    // последняя строка
    context->line_end = context->text_len;
  }
  // как только встретили пустую строку, завершаем разбор
  return context->pos < context->line_end;
}

void end_scan_row(scan_context_t* context) {
  int p = context->line_end;
  if ((p < context->text_len) && (context->text[p] == L'\r')) p++; // пропускаем '\r'
  if ((p < context->text_len) && (context->text[p] == L'\n')) p++; // пропускаем '\n'
  context->pos = p;
}

// результат -- в полях cell, cell_len
void scan_cell(scan_context_t* context) {
  context->cell = context->text + context->pos;
  const wchar_t* sep = wmemchr(context->text + context->pos, L'\t', context->line_end - context->pos);
  if (sep != NULL) {
    int sep_pos = sep - context->text;
    context->cell_len = sep_pos - context->pos;
    context->pos = sep_pos + 1; // пропускаем '\t'
  } else {
    // последняя ячейка в строке
    context->cell_len = context->line_end - context->pos;
    context->pos = context->line_end;
  }
}

...

void parse_table() {
  const wchar_t* const table = L"r1col1\tr1col2\tr1col3\tr1col4\tr1col5\t\nr2col1\tr2col2\tr2col3\tr2col4\tr2col5\t\n";

  scan_context_t sc;
  init_scan(&sc, table);

  while (begin_scan_row(&sc)) {
    scan_cell(&sc);
    Memo1->Lines->Add(UnicodeString(sc.cell, sc.cell_len));

    scan_cell(&sc);
    Memo1->Lines->Add(UnicodeString(sc.cell, sc.cell_len));

    scan_cell(&sc);
    Memo1->Lines->Add(UnicodeString(sc.cell, sc.cell_len));

    scan_cell(&sc);
    Memo1->Lines->Add(UnicodeString(sc.cell, sc.cell_len));

    scan_cell(&sc);
    Memo1->Lines->Add(UnicodeString(sc.cell, sc.cell_len));

    end_scan_row(&sc);
  }
}

void parse_table() {
  // копируем содержимое строкового литерала в локальный массив (потому что содержимое строкового литерала менять нельзя)
  wchar_t table[] = L"r1col1\tr1col2\tr1col3\tr1col4\tr1col5\t\nr2col1\tr2col2\tr2col3\tr2col4\tr2col5\t\n";
  const wchar_t* cell_1 = NULL;
  const wchar_t* cell_2 = NULL;
  const wchar_t* cell_3 = NULL;
  const wchar_t* cell_4 = NULL;
  const wchar_t* cell_5 = NULL;
  int cells_count = 0;
  // разбиваем текст на token-ы
  const wchar_t* seps = L"\t\r\n";
  for (wchar_t* tok = wcstok(table, seps); tok != NULL; tok = wcstok(NULL, seps)) {
    switch (cells_count) {
    case 0: cell_1 = tok; break;
    case 1: cell_2 = tok; break;
    case 2: cell_3 = tok; break;
    case 3: cell_4 = tok; break;
    case 4: cell_5 = tok; break;
    }
    cells_count++;
    if (cells_count == 5) {
      Memo1->Lines->Add(cell_1);
      Memo1->Lines->Add(cell_2);
      Memo1->Lines->Add(cell_3);
      Memo1->Lines->Add(cell_4);
      Memo1->Lines->Add(cell_5);
      cells_count = 0;
    }
  }
}