dialog med ini fil(er)

hvorfor laver du så mange:

ans=1
ans=2
ans=3
ans=4
ans1=Mp3 player
ans2=et spil
ans3=en vir.s
ans4=alt

jeg mener der er funktioner til at se hvor mange værdier der ligger under en section i ini fil, derfor kunne du nøjes med:
1=Mp3 player
2=et spil
3=en vir.s
4=alt

Når du kun har det er det lidt nemmere at holde styr på. Hvad angår det andet vil jeg bare sætte tag value for radiobutton til det nummer som spørgsmål nu er, så har du styr på det.

OK hvis jeg nu gør det på den måde, så skal den jo stadig, alt efter hvilken svar mulighed man vælger 1,2,3 el. 4 gå til [2], [3], [4], hvordan vil da kodingen se ud, når jeg har det her

var
  Form1: TForm1;
  currentQue: Integer = 0;
  korrektsvar: boolean;
  BrugerPoint: Integer;
  Point: Boolean;
implementation

{$R *.DFM}



function checkAns(que, ans : integer) : boolean;
var Ini: TIniFile;
    temp : integer;
begin
  Ini := TIniFile.Create('c:\hans.ini');
  temp := ini.ReadInteger(IntToStr(que),'answer',0);
  if ans = temp then
  begin
    result := true;
    korrektsvar := true;
    point := true;
    BrugerPoint :=  BrugerPoint + 5;
  end
  else
  begin
    result := false;
    korrektsvar := false;
    BrugerPoint :=  BrugerPoint + 1;
  end;
end;


function getQue(que : integer) : string;
var Ini: TIniFile;
begin
  Ini := TIniFile.Create('c:\hans.ini');
  result := ini.ReadString(inttostr(que),'question', 'Fejl');
end;

function getAns : string;
var Ini: TIniFile;
    i : integer;
begin
  form1.RadioGroup1.Items.Clear;
  Ini := TIniFile.Create('c:\hans.ini');
  for i := 1 to 4 do
  begin
    form1.RadioGroup1.items.add(ini.ReadString(inttostr(currentQue),('answer' + inttostr(i)),'fejl!'));
  end;
end;

function getNext : string;
var temp : string;

begin
  form1.memo1.Lines.Clear;
  if korrektsvar = false then
  begin
    temp := getQue(currentQue);
    korrektsvar := true;
  end
  else
  begin
    currentQue := currentQue + 1;
    temp := getQue(currentQue);
  end;
  if temp = 'Fejl' then
  begin
    form1.memo1.lines.add(temp);
    getAns;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  memo1.lines.add(getQue(currentQue) + '?');
  getAns;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if checkAns(currentQue,(RadioGroup1.ItemIndex + 1)) then
  begin
    label1.caption := inttostr(brugerpoint);
    showmessage('Du får ' + inttostr(brugerpoint) + ' point(s)');
    //getNext();
  end