Не работает процедура:то пишет,что много байт,то ещё что-то

procedure Form1.button1_Click(sender: Object; e: EventArgs);
var D:boolean;
Checker,Sw,Sw2:string;
Monitoring:textfile;
label 2;
begin
try
Name:=TextBox1.Text;
Checker:=ExtractFileExt(Name);
//Monitoring
reset(Monitoring,'info.txt');
2: if eof(Monitoring) = False
then 
begin
read(Monitoring,Sw);
Sw2:=Sw2+Sw;
goto 2;
end;
 
closefile(Monitoring);
 
rewrite(Monitoring,'info.txt');
 
Sw2:=Sw2+Name+(',');
 
writeln(Monitoring,Sw2);
 
//
 
//Extention
checker:=ExtractFileExt(Name);
if checker<>('.txt') then begin
DialogResult:=MessageBox.Show('Файл не имеет расширения,сменить его на ".txt"?','Warning',MessageBoxButtons.YESNO,MessageBoxIcon.Warning);
if DialogResult=System.Windows.Forms.DialogResult.Yes then begin if Name=('info') then MessageBox.Show('Недопустимо для этого файла!','Error',MessageBoxButtons.OK,MessageBoxIcon.Error); 
if Name<>('info') then begin Name:=Name+('.txt'); TextBox1.Text:=Name; end;
end;
end;
//
 
//Проверка наличия файла
if FileExists(Name) = true then
begin
 
 
DialogResult := MessageBox.Show('Вы точно хотите перезаписать файл?','Warning',MessageBoxButtons.YESNO,MessageBoxIcon.Question); 
if DialogResult = System.Windows.Forms.DialogResult.Yes then begin assign(FileText,Name); rewrite(FileText); MessageBox.Show('Файл перезаписан,можно делать запись','Warning',MessageBoxButtons.OK,MessageBoxIcon.Warning); 
MessageBox.Show('Can write','Warning!',MessageBoxButtons.OK,MessageBoxIcon.Warning); end;
end;
//
if FileExists(Name) = False then
begin
assign(FileText,Name);
 
rewrite(FileText);
MessageBox.Show('Can write','Warning!',MessageBoxButtons.OK,MessageBoxIcon.Warning);
end;
 
//Extention
 
 
 
//
 
except MessageBox.Show('Error!','Error!',MessageBoxButtons.OK,MessageBoxIcon.Error);
 
end;
end;

while not eof (Monitoring) do begin
  readln(Monitoring,Sw);
  Sw2:=Sw2+Sw;
end;

SW2:=System.IO.File.ReadAllText('info.txt',Encoding.Default);

procedure Form1.button1_Click(sender: Object; e: EventArgs);
var 
  D:boolean;
  Checker,Sw,Sw2,Name1:string;
   FileText:textfile;
 
begin
try
  Name1:=TextBox1.Text;
  Checker:=ExtractFileExt(Name1);
//Monitoring
  SW2:=System.IO.File.ReadAllText('info.txt',Encoding.Default);
  Sw2:=Sw2+Name1+(',');//а если textBox1 пустой????
  System.IO.File.WriteAllText('info.txt',Sw2);
//  checker:=ExtractFileExt(Name1);  //зачем еще раз????
 
   if UpperCase(Checker)<>('.TXT') then begin
     if MessageBox.Show('Файл не имеет расширения ".txt",сменить его на ".txt"?','Warning',
        MessageBoxButtons.YESNO,MessageBoxIcon.Warning)=System.Windows.Forms.DialogResult.Yes 
        then 
            begin 
               Name1:=Name1+('.txt'); 
               TextBox1.Text:=Name1; 
             end;
      end;
//
   if uppercase(Name1)='INFO.TXT' then begin
       MessageBox.Show('Недопустимо для этого файла!','Error',MessageBoxButtons.OK,MessageBoxIcon.Error);
        exit;
     end;  
 
  if FileExists(Name1) then 
     if MessageBox.Show('Вы точно хотите перезаписать файл?','Warning',
        MessageBoxButtons.YESNO,MessageBoxIcon.Question)=System.Windows.Forms.DialogResult.Yes 
        then begin 
           assign(FileText,Name1); 
           rewrite(FileText); 
           MessageBox.Show('Файл перезаписан,можно делать запись','Warning',MessageBoxButtons.OK,MessageBoxIcon.Warning);
        end else begin   
            MessageBox.Show('Can write','Warning!',MessageBoxButtons.OK,MessageBoxIcon.Warning); 
            exit;
         end;
//
if not FileExists(Name1) then begin
  assign(FileText,Name1);
  rewrite(FileText);
  MessageBox.Show('File created','Warning!',MessageBoxButtons.OK,MessageBoxIcon.Warning);
end;
//
  CloseFile(FileText);
//
except MessageBox.Show('Error!','Error!',MessageBoxButtons.OK,MessageBoxIcon.Error);
end;
end;