sma_soft

Hi dudes,
I want to convert a string variable to its Unicode equivalent.
I know that I should use the MultiByteToWideChar function to do that. But I get the same result. Here is an example of that:

function ToUnicodeString(s:string):string;
var p1Char;
pw1:array[0..1024]of WideChar;
nLen1,nLen2:integer;
begin
p1:=PChar(s);
nLen1:=Length(s);
nLen2:=nLen1 * 2;
MultiByteToWideChar(CP_ACP , MB_COMPOSITE , p1 , nLen2 , @pw1 , nLen2);
Result:=WideString(pw1);
end;


Is there anything wrong in the code above ?
Thanks for help from anyone.