[fpc-pascal] How to create AnsiString with specific code page?

[Abuy]

I need string with Windows-1251. Tried var msg: AnsiString(1251) but 
this does not work. What I am doing now is

var msg: rawbytestring;
begin
   SetCodePage(msg, 1251, True);
end.