function DetectCodePage(Buffer: PAnsiChar;  BufSize: integer): cardinal;
var i,j:integer;
    AMax:integer;
    S:AnsiString;
begin
  if IsTextUnicode(Buffer,BufSize,nil) then Result:=CP_UNICODE
  else begin
         if (Buffer<>nil) then S:=AnsiString(Buffer)
         else S:='';
         if (S<>'') and (Copy(S,1,3)=BOM_UTF8_STR) then Result:=CP_UTF8
         else
         if (S<>'') and (Copy(S,1,3)=BOM_UTF7_STR) then Result:=CP_UTF7  
         else
         if (S<>'') and ((Copy(S,1,2)=BOM_LSB_FIRST_STR) or
                         (Copy(S,1,2)=BOM_MSB_FIRST_STR)) then
             begin
               if (Copy(S,1,2)=BOM_LSB_FIRST_STR) then Result:=CP_UTF16BE
               else Result:=CP_UNICODE;
             end
         else
            begin
               // а вот тут уже твое личное творчество, как отличить KOI8 от ANSI1251 ;)
            end;
end;