Кириллица в WIN32 GUI приложениях

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <windows.h>
 
#ifndef UNICODE
#define UNICODE
#endif
 
#ifndef _UNICODE
#define _UNICODE
#endif
 
#if !(defined(_UNICODE) | defined(UNICODE))
#error no Unicode!
#endif
 
//---------------------------------------------------------------------------
USEFORM("Test1.cpp", Form1);
//---------------------------------------------------------------------------
extern "C" int WINAPI wWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------

   Button1->Caption = TEXT("Кнопка Выхода");
   Label1->Caption = TEXT("Русский текст");

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Memo1->Lines->SaveToFile("SaveFile.txt");
}

...
void __fastcall TForm1::Button4Click(TObject *Sender)
{
   WideCharToMultiByte(CP_UTF8, 0, Memo1->Lines->GetText(), -1, Memo1->Lines->Add(Memo1->Text), -1, NULL, NULL);
   Memo1->Lines->SaveToFile("SaveFile.txt");
}
...

wchar_t * utf8_to_unicode(char *utf8_string)
{
    int err;
    wchar_t * res;
    int res_len = MultiByteToWideChar(
        CP_UTF8,            // Code page
        0,                  // No flags
        utf8_string,        // Multibyte characters string
        -1,                 // The string is NULL terminated
        NULL,               // No buffer yet, allocate it later
        0                   // No buffer
        );
    if (res_len == 0) 
    {
        return NULL;
    }
    res = (wchar_t*)calloc(sizeof(wchar_t), res_len);
    if (res == NULL) 
    {
        return NULL;
    }
    err = MultiByteToWideChar(
        CP_UTF8,            // Code page
        0,                  // No flags
        utf8_string,        // Multibyte characters string
        -1,                 // The string is NULL terminated
        res,                // Output buffer
        res_len             // buffer size
        );
    if (err == 0)
    {
        free(res);
        return NULL;
    }
    return res;
}
char * unicode_to_1251(wchar_t *unicode_string)
{
    int err;
    char * res;
    int res_len = WideCharToMultiByte(
        1251,               // Code page
        0,                  // Default replacement of illegal chars
        unicode_string,     // Multibyte characters string
        -1,                 // Number of unicode chars is not known
        NULL,               // No buffer yet, allocate it later
        0,                  // No buffer
        NULL,               // Use system default
        NULL                // We are not interested whether the default char was used
        );
    if (res_len == 0) 
    {
        return NULL;
    }
    res = (char*)calloc(sizeof(char), res_len);
    if (res == NULL) 
    {
        return NULL;
    }
    err = WideCharToMultiByte(
        1251,               // Code page
        0,                  // Default replacement of illegal chars
        unicode_string,     // Multibyte characters string
        -1,                 // Number of unicode chars is not known
        res,                // Output buffer
        res_len,            // buffer size
        NULL,               // Use system default
        NULL                // We are not interested whether the default char was used
        );
    if (err == 0)
    {
        free(res);
        return NULL;
    }
    return res;
}

void __fastcall TForm1::Button4Click(TObject *Sender)
{
   Memo1->Lines->SaveToFile("SaveFile.txt", TEncoding::Unicode);
}