UnicodeString r = "", tmp = "", str = Clipboard()->AsText;
	int del = 0, delnum = 0, addnum = 0, len = str.Length();
	bool fnum = false;

	for (int i = 1; i <= len; i++) {
		if (str[i] >= '0' || str[i] <= '9' ) {
			fnum = true;
			tmp += str[i];
			continue;
		}
		del += 1;
		if (!fnum) continue;
		if (tmp.Length() == 12) {
			addnum += 1;
			r += tmp + '\x0D' + '\x0A';
		}
		else {
			delnum += 1;
		}
		fnum = false;
		tmp = "";
	}


	Memo1->Lines->Clear();
	Memo1->Lines->Append(r);

	Memo2->Lines->Clear();
	Memo2->Lines->Append("Удалено неподходящих символов: "+IntToStr(del));
	Memo2->Lines->Append("Удалено неподходящих чисел: "+IntToStr(delnum));
	Memo2->Lines->Append("Добавлено подходящих чисел: "+IntToStr(addnum));

By default, the debugger displays the result in the format that matches the data type of the expression. For example, Integer values are displayed in decimal format. To change the display format, type a comma (,) followed by a format specifier after the expression. 

The following table describes the Evaluate/Modify format specifiers
Specifier Types affected Description 
,C  Char, strings  Character. For Delphi, shows characters for ASCII 0 to 31 in the Delphi language #nn notation. 
 
,S  Char, strings  String. For Delphi, shows ASCII 0 to 31 in Delphi language #nn notation.