Проблемы при чтении из файла в запись

procedure TForm1.ButtSelXTFClick(Sender: TObject);//Выбрать XTF
var
st: String;
HDR1: XTFFILEHEADER;
t: array [0..1023]of BYTE;
str: string;
 
begin
  if Form1.OpenDialog1.Execute then begin
     Form1.Edit1.Text := Form1.OpenDialog1.FileName;
     XTFstream:=TFileStream.create(Form1.Edit1.Text, fmOpenReadWrite);
     with XTFstream do
     try
        Seek(0, soFromBeginning);
        read(HDR1, 1024);
        Seek(0, soFromBeginning);
        read(t, 1024);
        st:=HDR1.RecordingProgramVersion;
     except
        ShowMessage('Неизвестная ошибка');
     end;
     XTFstream.Free;
  end;
end;

procedure TForm6.BitBtn1Click(Sender: TObject);
var s:string;f:textfile;
begin
s:='1234567890';
s[4]:=#0;
AssignFile(f,'c:\1.txt');Rewrite(f);
Writeln(f,s);
CloseFile(f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  s: String;
  f: TextFile;
begin
  AssignFile(f, 'c:\1.txt');
  reset(f);
  read(f, s);
  CloseFile(f);
  ShowMessage(s);
end;

      itpStr:
        begin
        Buf.VStr:='';
        //Buf.VStr:=Item.ValueStr;
        {Да, <мат> по преобразованиям варианта в строку, но #0 <мат>}
        for i:=Low(Item.ValueStr) to High(Item.ValueStr) do
          begin
          if Item.ValueStr[i]<>#0 then Buf.VStr:=Buf.VStr+Item.ValueStr[i]
                                  else Break;
          end;
        for i:=Low(Buf.VStr) to High(Buf.VStr) do
          begin
          if Buf.VStr[i]=#0 then
            begin
            Buf.VStr[i]:=' ';
            DM.AddMsgToLog('Был 0 в строке: '+Buf.VStr);
            end;
          end;
        end;