FileStreami.Write 写字符串 注意sizeof(Char)，delphi2010 widechar

 FileStreami.Write(pChar(si)^, Length(si)*sizeof(Char));

  Filestreami.Seek(-3*sizeof(char),STREAM_SEEK_END);
  si:=';';
  FileStreami.Write(pChar(si)^, 1*sizeof(char));