SMS с маила на мобильник.

Вопрос в следующем:

пишу простенький маил клиент, однако с возможностью отсылки сообщений на мобильники на русском языке:D :( . Как вычитал, мобилки принимают(особенно охотно сообщения на различных языках) именно в кодировке UCS-2.
отсюда вопрос, как перевести в UCS-2 из какой-либо другой кодироки например AsCII или обычного UNICODE:( ?

я написал 4 таких вот функции, хотя бы одна из них вроде должна работать, но не работают:

function GetByte(wc: WideChar; byteno: Byte): Byte;
var
pb: ^Byte;
begin
pb := Pointer(Integer(@wc) + byteno);
result := pb^;
end;

function PackToStr1(ws: WideString): string; // Little Endian
var
i, j: Integer;
begin
result := '';
for i := 1 to Length(ws) do
for j := 0 to SizeOf(ws[1]) - 1 do
result := result + Chr( GetByte(ws, j) );
end;

function PackToStr2(ws: WideString): string; // Big Endian
var
i, j: Integer;
begin
result := '';
for i := 1 to Length(ws) do
for j := SizeOf(ws[1]) - 1 downto 0 do
result := result + Chr( GetByte(ws, j) );
end;

function PackToStr3(ws: WideString): string; // Little Endian +
var // + Byte Order Mark ($FF $FE)
i, j: Integer;
begin
result := Chr($FF) + Chr($FE);
for i := 1 to Length(ws) do
for j := 0 to SizeOf(ws[1]) - 1 do
result := result + Chr( GetByte(ws, j) );
end;

function PackToStr4(ws: WideString): string; // Big Endian + BOM ($FE $FF)
var
i, j: Integer;
begin
result := Chr($FE) + Chr($FF);
for i := 1 to Length(ws) do
for j := SizeOf(ws[1]) - 1 downto 0 do
result := result + Chr( GetByte(ws, j) );
end;

может кто-то уже сталкивался со сходной проблемой?

Так как являюсь в обшем наичинающим в данной области, буду благодарен кускам кода :cool: .

Заранее благодарен!