Переход с BDS2006 на что-нибудь поновее

unsigned char buf[100];
//...
char smb95 = 0x99;
StrPos(buf, &smb99); // нужно определить, каким по счету идет байт 0x99

StrPos(const char *str1, const char *str2);

DWORD buf1;
//...
IntToStr(buf1);

IntToStr((int)buf1);

Application->MessageBox("Вот такие пироги", "Заголовок", 1);

SetZUP (Form1->MEPit->Text)

bool SetZUP (AnsiString);

/*unsigned*/ char buf[100];
 
//IntToStr(buf1);
String( buf1 ); // OK
IntToStr((int)buf1); // Некорректно, обрезка значения unsigned long --> int
 
Application->MessageBox( L"Вот такие пироги", L"Заголовок", 1);
 
AnsiString str = Form1->MEPit->Text;
SetZUP ( str );
// либо меняем объявление так: 
bool SetZUP ( String );

E1 = new TMaskEdit(MyForm);
E1->Parent=MyForm;
E1->OnKeyPress = Press;

Press(Sender, VK_ESCAPE);

void __fastcall TForm1::Press(TObject *Sender, char &Key);

Application->MessageBox("Вот такие пироги", "Заголовок", 1);

Application->MessageBox(L"Вот такие пироги", L"Заголовок", 1);

if (Set (Form1->MEPit->Text))

bool Set (AnsiString);

bool a = SetZUP (Form1->MEPit->Text);
if (a)

void __fastcall TForm1::Press(TObject *Sender, WideChar &Key);

Press(Sender, VK_ESCAPE);

Application->MessageBox(("s1=" + s1 + "; s2=" + s2).w_str(), num.c_str(), 0);
// или 
Application->MessageBox(String("s1=" + s1 + "; s2=" + s2).c_str(), num.c_str(), 0);

Press(Sender, (wchar_t)VK_ESCAPE);

     wchar_t mKey = VK_ESCAPE;
     Press(Sender,mKey);

Application->MessageBox(("s1=" + String(s1) + "; s2=" + String(s2)).w_str(), String(num).w_str(), 0);

Press(Sender, VK_ESCAPE);