Кракозябра с кодировкой

    Buffer:=UnicodeString(PChar(P));
    Form1.Memo1.Lines.Add(Buffer);
    Form1.Memo1.Lines.Add('***');

         buffer:=pchar(P);
 
          form1.Memo1.Lines.Add(buffer);
          form1.Memo1.Lines.SaveToFile('test',TEncoding.Unicode);
          form1.Memo1.Lines.LoadFromFile('test',TEncoding.ANSI); //TEncoding.GetEncoding(CP_ACP);
          Form1.Memo1.Lines.Add('***');

 MS:=TMemoryStream.Create;
 
  if OpenClipboard(0) then
  begin
 
    CBFList:=TList.Create;
    CBF:=0;
    repeat
    CBF:=EnumClipboardFormats(CBF);
    if CBF<>0 then CBFList.Add(Pointer(CBF));
    until CBF=0;
 
    if CBFList.Count>0 then
    begin
    Temp:=CBFList.Count;
    MS.Write(Temp,SizeOf(Integer));
 
      for I:=0 to CBFList.Count-1 do
      begin
      H:=GetClipboardData(Cardinal(CBFList[I]));
 
        if H>0 then
        begin
          CBBlockLength:=GlobalSize(H);
          if H>0 then
          begin
            P:=GlobalLock(H);

var
  H: THandle;
  P: Pointer;
  I: Integer;
  CBFList: TList;
  BufferData,CBF,CBBlockLength,Temp: Cardinal;
  Buffer: String;
  MS: TMemoryStream;

var s:AnsiString;buffer:string;
...
s:=pansichar(p);
buffer:=s;

Temp:=CBFList.Count;
if Temp>0 then
begin
    MS.Write(Temp,SizeOf(Temp));

Uses Clipbrd
 
memo.lines.text := Clipboard.AsText;