Проблема с кодировкой при печати, С++ Builder 6 Опции

[Neon6868]

Необходимо при нажатии кнопки распечатать текст, находящийся в окне Memo. Проблема в том, что текст этот в кодировке DOS.
После распечатывания таким способом

   int lines_kol = Memo1->Lines->Count;
  TPrinter *Prntr = Printer();
  TRect r = TRect(200, 200, Prntr->PageWidth - 200, Prntr->PageHeight - 200);
  Prntr->BeginDoc();
  Prntr->Canvas->TextRect(r, 200, 200,Memo1->Lines->Text);
  Prntr->EndDoc();

вместо русских букв печатаются иероглифы.

Пробую изменить кодировку текста, но после запуска программы вылетает непонятная ошибка. Подскажите из-за чего она возникает.

void __fastcall TForm1::Button3Click(TObject *Sender)
{
   int lines_kol = Memo1->Lines->Count;
  TPrinter *Prntr = Printer();
  TRect r = TRect(200, 200, Prntr->PageWidth - 200, Prntr->PageHeight - 200);
  Prntr->BeginDoc();
  for(int i = 0; i < lines_kol; i++)
  {
  char *newstr;
  AnsiString st=Memo1->Lines->Strings[i];
  OemToChar(st.c_str(),newstr);
  Prntr->Canvas->TextRect(r, 200, 200,AnsiString(newstr));

  }
  Prntr->EndDoc();
}

Сообщение отредактировано: Neon6868 - 22.08.2009 13:44

[Neon6868]

При использовании этой строки

OemToChar(st.c_str(),newstr);

вылетает ошибка

Код

---------------------------
Information
---------------------------
Project G:\Documents and Settings\Владелец\Рабочий стол\POISK\Project2.exe faulted with message: 'access violation at 0x7c92ab1b: write of address 0x00030ffc'. Process Stopped. Use Step or Run to continue.
---------------------------
OK  
---------------------------

Если перед ней поставить знак коментария, то ошибки нету.

Сообщение отредактировано: Neon6868 - 22.08.2009 14:17