Delphi Блочная запись

[Pord]

Помогите пожалуйста найти ошибку. При записи нового блока удаляется последний символ старого. и я не могу понять почему.

const
  BufferSize = 65536;
var
  FileToSave:File;
  buffer:array[Word] of byte;
  i:LongWord;
  Temp:String;
begin
  NumRec:=0;
  Temp:=Pad.Text;
  AssignFile(FileToSave,FilePath);
  FileMode:=fmOpenWrite;
  Rewrite(FileToSave,BufferSize);
  while Temp<>'' do
    begin
      for i := 0 to BufferSize-1 do
      begin
        if Length(Temp)>=i then
          Buffer[i]:=Ord(Temp[i+1])
        else
          begin
            Reset(FileToSave,Length(Temp));
            Seek(FileToSave,FileSize(FileToSave));
            break;
          end;
      end;
      BlockWrite(FileToSave,buffer,1);
      Delete(Temp,1,BufferSize);
      Inc(NumRec);
    end;
  CloseFile(FileToSave);

Заранее спасибо

[Stilet]

А почему бы тебе при таком раскладе не работать с обычными TextFile?
ТОгда простой Write будет делать всю грязную работу?
типа такого:

var
  FileToSave:textFile;
  buffer:array[Word] of byte;
  i:LongWord;
  Temp:String;
begin
  Temp:='123456';
  AssignFile(FileToSave,'c:\1\q.txt');
  FileMode:=fmOpenWrite;
  Rewrite(FileToSave);
  for i:=1 to length(temp) do temp[i]:=temp[i+1];
  delete(temp,length(temp)-1,1);
  Write(FileToSave,temp);
  CloseFile(FileToSave);
end;

[Pord]

потому что в дальнейшем этот алгоритм должен будет на лету переводить в Unicode и UTF-8