Не стабильно работает программ

[Алексей0001]

Добрый день, помогите разобраться
1.PNG

2.PNG

3.PNG
Кнопка "Open" разбивает файл по строкам и столбцам + сортируем
"Process" разбивает файл по строкам и столбцам, и сортируем уже в файле
Если сразу нажать на кнопку Process, программа будет добавлять весь в файл в один столбец. Если нажать кнопку Open а потом кнопку Process, файл нормально добавится.

procedure Tstringfile.Button_OpenClick(Sender: TObject);
var
  pl, tl: TStringList;
  i: Integer;
begin
  if (main.delimiter.Text <> '') then // проверяем edit на пустоту
    v := main.delimiter.Text[1]
  else
    v := #9;
  if not OpenDialog1.Execute then
    exit;
  pl := TStringList.Create;
  pl.LoadFromFile(OpenDialog1.FileName); // открыаем файл
  StringGrid1.FixedCols := 0; // подготовливаем StringGrid1
  StringGrid1.FixedRows := 0;
  StringGrid1.RowCount := pl.Count;
  pl.Sort; // сортируем файл
  // разбиваем по строкам  и столбцам разделенных переменной  v
  tl := TStringList.Create;
  tl.delimiter := v;
  try
    for i := 0 to pl.Count - 1 do
    begin
      tl.Clear;
      tl.DelimitedText := pl.Strings[i];
      if StringGrid1.ColCount < tl.Count then
        StringGrid1.ColCount := tl.Count;
      StringGrid1.Rows[i].Assign(tl);
    end;
  finally
    FreeAndNil(tl);
    FreeAndNil(pl); // очищаем память
  end;

end;

procedure Tstringfile.Button_ProcessClick(Sender: TObject);
var
  ListFromFile, ListTemp, list: TStringList;
  i: Integer;
  fname: string;
begin
  if not OpenDialog1.Execute then
    exit;
  ListFromFile := TStringList.Create;
  ListFromFile.LoadFromFile(OpenDialog1.FileName); // загружаем файл
  StringGrid1.FixedCols := 0; // подготовливаем StringGrid1
  StringGrid1.FixedRows := 0;
  StringGrid1.RowCount := ListFromFile.Count;
  list := ListFromFile; // присваиваем list, ListFromFile. list будем использовать для сортировки файла
  fname := ChangeFileExt(OpenDialog1.FileName, '.result'); // переменной fname присваиваем исходный путь с исходным именем файла и расширением result
  // разбиваем по строкам  и столбцам разделенных переменной  v
  ListTemp := TStringList.Create;
  ListTemp.delimiter := v;
  for i := 0 to ListFromFile.Count - 1 do
  begin
    ListTemp.Clear;
    ListTemp.DelimitedText := ListFromFile.Strings[i];
    if StringGrid1.ColCount < ListTemp.Count then
      StringGrid1.ColCount := ListTemp.Count;
    StringGrid1.Rows[i].Assign(ListTemp);
  end;
  try
    list.Sort; // сортируем файл
    // сохранем файл
    if not FileExists(fname) then
      ListFromFile.SaveToFile(fname)
    else if (MessageBox(Handle,
        'Обработанный файл с таким именем уже существует.'#13'Вы хотите сохранить файл под другим именем?', 'Запрос.', mb_YesNo or mb_IconQuestion) = idNo) or (not SaveDialog1.Execute) then
    begin
      ShowMessage('Операция отменена. Файл не сохранен!');
      exit;
    end
    else
      // сохраняем файл с новым именем
      ListFromFile.SaveToFile(SaveDialog1.FileName);
    ShowMessage('Сохранение выполнено успешно!');
  finally
    FreeAndNil(ListFromFile);
    FreeAndNil(ListTemp); // очищаем память
  end;
end;
procedure Tstringfile.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  main.Close;       //закрываем форму
end;

end.

[Алексей0001]

Если не менять разделитель данных, а оставить стандартный (#9),то программа будет работать нормально

[Аватар]

Эта тема чем не устроила?

http://www.programmersforum.ru/showt...69#post1719269

И посмотри где записываешь в переменную v