wchar_t str[] = {0x03B2, 0x00, 0x00};
  wprintf( L"TComponent : [%s]", str  );

AnsiString utf_to_ansi( const wchar_t *wstr, const size_t wstr_len, bool* error, const size_t CodePage )
{
	AnsiString  result;
  if( wstr == NULL || wstr_len==  0  || CodePage ==  0  )
  {
	  return result;
  }
    int alen = ::WideCharToMultiByte(CodePage, 0 ,wstr,wstr_len,NULL, 0 ,NULL,NULL);
	assert(alen>= 0 );
	if(alen== 0  || (alen== 1  && wstr_len==- 1 ))//error или wstr==L""
	{
		if( error )
		{
			*error = GetLastError() ? true : false;
		}
		return result;
	}
	if( wstr_len!=- 1  )
	{
		alen+= 1 ;//учитываем завершающий символ
	}
    char buffer = new char[alen];
	memset(buffer,  0 , alen);
    //если str_len==-1, то нулевой символ перезапишется
    ::WideCharToMultiByte(CodePage, 0 ,wstr,wstr_len, buffer,alen,NULL,NULL);
    result = buffer;
	delete [] result;
     return result; 
}

TEdit *edit = new  TEdit(NULL);
wchar_t wstr[] = {0x03B2, 0x00, 0x00};
bool error = false;
edit->Caption = utf_to_ansi( wstr, wcslen(wstr),  &error,  1251 /*russian, 1252 - english*/ );

for( int i =  0 ; i < size_buffer; i++)
{
  for(j =  0 ; j < sizeof(ansi); j++)
  {
       if( buffer[i]==ansi[j] )
            buffer[i] = oem[j];
  }
}