fp.Write(Str,length(Str)); 
改成
  fp.Write(Str[1],length(Str)); 把
  fp.Read(buf, fp.Size); 
改成
  buf:=StringOfChar('A',fp.size);
  fp.Read(buf[1], fp.Size);