Как правильно указать путь до файла .ini

[A_R_M1902]

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

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quests1.ini');

[macomics]

А где остальное. Судя по этой строчке мало что можно понять. Ошибка точно не в ней.

[A_R_M1902]

И когда запускаю приложение, выдает «ничего нет», а сам вопрос не выводит

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IniFiles;

type
  TFormTestDelphi = class(TForm)
    MemoQuestTest: TMemo;
    ButtonStartTest: TButton;
    RadioGroupNumberTicket: TRadioGroup;
    RadioButtonfirstTicket: TRadioButton;
    RadioButtonLastTicket: TRadioButton;
    RadioButtonallTicket: TRadioButton;
    RadioButtonTicketQuest1: TRadioButton;
    RadioButtonTicketQuest2: TRadioButton;
    ButtonNext: TButton;
    procedure ButtonStartTestClick(Sender: TObject);
    procedure ButtonNextClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormTestDelphi: TFormTestDelphi;
  Quests:TIniFile;
  IntnextQuest:integer;
  OtvetStr,OtvetUserStr:string;

implementation

{$R *.dfm}

procedure TFormTestDelphi.ButtonNextClick(Sender: TObject);
begin
case RadioButtonTicketQuest1.Checked of
true:begin OtvetUserStr:='A'; end;
false:begin OtvetUserStr:='B' end;
end;
     if OtvetStr = OtvetUserStr then
      begin
        ShowMessage ('Правильный ответ!')
      end;
Inc(IntnextQuest);
     MemoQuestTest.Lines.Clear;
     Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quests1.ini');
     MemoQuestTest.Lines.Add(Quests.ReadString('Quest'+IntToStr(IntnextQuest),'Quest','ничего нет'));
     OtvetStr:=(Quests.ReadString('Quest'+IntToStr(IntnextQuest),'Otvet','ничего нет'));
end;

procedure TFormTestDelphi.ButtonStartTestClick(Sender: TObject);
begin
IntnextQuest:=1;
if RadioButtonFirstTIcket.Checked = true then
   begin
     MemoQuestTest.Lines.Clear;
     Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quests1.ini');
     MemoQuestTest.Lines.Add(Quests.ReadString('Quest'+IntToStr(IntnextQuest),'Quest','ничего нет'));
     OtvetStr:=(Quests.ReadString('Quest'+IntToStr(IntnextQuest),'Otvet','ничего нет'));
   end;
end;

end.

[macomics]

Отлично. Код программы есть, а текст INI файла...

1) Вы создаёте в глобальной переменной экземпляр класса, но не освобождаете его! Это создаст утечки памяти.
Решение: (рекомендуется) Либо создавайте её один раз при загрузке программы (обработчик формы OnCreate) и освобождайте по завершении (обработчик формы OnDestroy). Либо перенесите переменную Quests в область локальных переменных у каждой функции и добавьте код освобождения в конце каждой функции.

2) После создания объекта стоит добавить код проверки ошибок и вывода соответствующего сообщения. Это поможет при отладке.

if Quests <> nil then ...

3) Замечание:

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

case RadioButtonTicketQuest1.Checked of
true:begin OtvetUserStr:='A'; end;
false:begin OtvetUserStr:='B' end;
end;

Для проверки на Boolean значение лучше использовать просто if ... then ... else ...

if RadioButtonTicketQuest1.Checked then OtvetUserStr:='A' else OtvetUserStr:='B';

[A_R_M1902]

Есть с тобой возможность связаться через телеграмм?

Я просто не особо силен в этом Delphi и ни чего толком не понял, а сам пишу диплом, и 2 мая уже сдавать. Ну мне прям очень надо, сама вообще дипломка "Разработка программы проверки обучающихся по информатике на языке Delphi". Если свяжешься со мной, буду очень, при очень благодарен. Вот мой тг - @akhtyrsk1y и вк - vk.com/ilya.akhtyrskiy