Ошибка сохранения в файл [Delphi]

[StudeHt]

Здравствуйте уважаемые эксперты! Вот есть код:

procedure TMainForm.ButtonSaveToFileClick(Sender: TObject);
var NameFile:string;
    FileOut:TextFile;
    R:extended;
    MdRes:byte;
begin
  SaveDialogFile.Title:='Укажите имя выходного файла';
  if not SaveDialogFile.Execute then
    Exit;
  if FileExists(SaveDialogFile.FileName) then
    begin
       MdRes:=MessageDlg('Файл '+NameFile+' существует! Перезаписать?',mtConfirmation,[mbYes,mbNo],0);
       if MdRes=mrNo then
         Exit;
    end;
  NameFile:=SaveDialogFile.FileName;
  try
    AssignFile(FileOut,NameFile);
    Rewrite(FileOut);
    writeln(FileOut,'Радиус бака равен: ',R);
    writeln(FileOut,'Высота бака равна: ',R);
    CloseFile(FileOut);
  except
    MessageDlg('Ошибка сохранения файла!',mtError,[mbOk],0);
  end;
end;

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

[Arigato]

Я что-то не вижу, где присваивается значение переменной R.

[StudeHt]

Я что-то не вижу, где присваивается значение переменной R.

Значение R я присваиваю в процедуре кнопки "Выполнить". Вот ее код:

procedure TMainForm.ButtonCalcResultClick(Sender: TObject);
var V,R,Eps:extended;
begin
  try
    V:=StrToFloat(Edit_V.Text);
    R:=StrToFloat(Edit_R0.Text);
    Eps:=StrToFloat(Edit_Eps.Text);
  except on EConvertError do
    begin
      MessageDlg('Не все поля заполнены!',mtError,[mbOk],0);
      Exit;
    end;
  end;
  R:=Newton(Eps,R,V);
  EditPrintR.Text:=FloatToStrF(R,fffixed,6,6);
  EditPrinth.Text:=FloatToStrF(R,fffixed,6,6);
end;

[RUSt88]

function WriteText(path: string; var ftext: TextFile; data: string): byte;
begin
  try
    AssignFile(ftext, path);
    Rewrite(ftext);
    writeln(ftext,'Радиус бака равен: ', data);
    writeln(ftext,'Высота бака равна: ', data);
    CloseFile(ftext);
    Result := 1;
  except
    Result := 0;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
  R: Extended;

begin
  SaveDialog1.Title:='Укажите имя выходного файла';
  if SaveDialog1.Execute then begin
    if FileExists(SaveDialog1.FileName) then begin
        case MessageBox(Handle, PChar('Файл ' + SaveDialog1.FileName + ' существует. Перезаписать?'), PChar(Caption), MB_YESNO + MB_ICONWARNING) of
          ID_YES:
          begin
            if WriteText(SaveDialog1.FileName, f, FloatToStr(R)) = 0 then
              MessageBox(handle, 'Ошибка сохранения файла!', PChar(Caption), MB_OK + MB_ICONERROR);
          end;
        end;
    end;
    if WriteText(SaveDialog1.FileName, f, FloatToStr(R)) = 0 then
      MessageBox(handle, 'Ошибка сохранения файла!', PChar(Caption), MB_OK + MB_ICONERROR);
  end;
end;

[Arigato]

Сообщение от StudeHt

Значение R я присваиваю в процедуре кнопки "Выполнить".

Так R у Вас локальная, и внутри TMainForm.ButtonSaveToFileClick она не инициализирована.

[StudeHt]

Спасибо, решил просто считать R из Edit'а и вывести в файл..