关于读取文件UNICODE编码标志的问题......在线等！

Question

目的：判断一个文件（一般是TXT文件）是不是UNICODE编码。我大概知道，一个UNICODE编码的文件前两个字节是:00FF和00FE。
使用ASSIGN、RESET、BLOCKREAD等函数，如果从文件中读出这个标志，并进行判断呢？或者使用其它的函数？
请高手支招，给出具体的变量声明和这段函数，谢谢！在线等！

Answer 1

fileHandle:=fileRead();
fileseek(fileHandel,0,0);
fileread(fileHandle,buffer,4)
closeHandle(fileHandle);
buffer:array [1..4] of byte;
读出的BUFFER就是你的东西，

Answer 2

fileHandle:=FileCreate()
fileseek(fileHandel,0,0);
fileread(fileHandle,buffer,4)
closeHandle(fileHandle);
buffer:array [1..4] of byte;
读出的BUFFER就是你的东西，

Answer 3

谢谢huayuxing(huayuxing) ，可是我怎么比较buffer和unicode标志：00ff00fe呢？
用什么函数？

Answer 4

接着huayuxing的代码，判断00ff00fe：
if (buffer[0] = $00) and (buffer[1] = $ff) and 
  (buffer[2] = $00) and (buffer[3] = $fe) then
begin
// ...............
end;