[Yogurt]

ещё одна фишка оттуда же:

Код:

procedure тратата;
label next;
var n,i:integer;
begin
      n:=0;
      while unit11.form11.stringgrid15.Cells[0,n]<>'' do n:=n+1;
      AssignFile(fl,'L-name.txt');
      if unit11.form11.stringgrid15.Cells[0,n+1]='' then goto next
      else
      begin
          rewrite(fl);
          for i:=1 to n+1 do
          begin
                writeln(fl,unit11.form11.stringgrid15.Cells[0,i]);
          end;
          CloseFile(fl);
      end;
      next:
end;

Мне нужно, чтобы он записал в файл при изменении строки в стринггриде, но ничего подобного он не делает, даже ошибок не выдаёт, я вручную печатаю в строке, но всё в холостую...