IdHTPP1 Кодировка

LPSTR xcode(LPCSTR src, UINT srcCodepage, UINT dstCodepage)
{
/*перекодировка информации*/
int wsize = MultiByteToWideChar(srcCodepage, 0, src, -1, NULL, 0);
LPWSTR wbuf = (LPWSTR)malloc(wsize*sizeof(WCHAR));
MultiByteToWideChar(srcCodepage, 0, src, -1, wbuf, wsize);
int size = WideCharToMultiByte(dstCodepage, 0, wbuf, -1, NULL, 0, NULL, NULL);
LPSTR buf = (LPSTR)malloc(size);
WideCharToMultiByte(dstCodepage, 0, wbuf, -1, buf, size, NULL, NULL);
free(wbuf);
return buf;
}
void __fastcall TForm1::GetHTMLCode(AnsiString url_site)
{
   TStringList *pot = new TStringList;
   pot->Text= IdHTTP1->Get(url_site);
   char * a = new char[pot->Text.Length()];
   strcpy(a,pot->Text.c_str());
    LPSTR p;
   p = xcode(a, 20866, 1251);
        /*
            a - строка требующая преобразования
            Win = 1251,
            KOI8R = 20866,
            UTF8 = 65001
       */
   Memo1->Clear();
   Memo1->Lines->Add(p);

   IdHTTP1->Free() ;
}