Перекодировка текста

Недавно меня озадачили. Попросили написать программу которая переводит текст из кодировки Dos в Windows и наоборот. Я немного покопался в help'е и вот что у меня получилось. Я надеюсь вас заинтересует мое решение.

 

procedure MyOemToChar;
var  b:string;
begin
b:=Memo1.Lines.Text;
OemToChar(PChar(b),Pchar(b));
Memo2.Lines.Text:=b;
end;

или

 

procedure MyOemToChar;
var  b:PChar;
begin
b:=Memo1.Lines.GetText;
OemToChar(b,b);
Memo2.Lines.Text:=StrPas(b);
end;

Я сам предпочитаю использовать вариант N1. Хотя во время тестирования оба варианта работали.