Плиииз помогите!!!

Вот код программы:
var
Form4: TForm4;
lim,balls,a:Integer;
const limit=20;
implementation

uses Unit1, Unit3, Unit6;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
begin
Form4.Position:=poDesktopCenter;
lim:=0;
ds2.LoadFromFile('Тест 1.xml');
end;

procedure TForm4.btn1Click(Sender: TObject);
var
userans,corranswer:string;
begin
userans:=edt1.Text;
corranswer:=Form6.ds2CorrectAnswer.Value;
balls:=0;
edt2.Text:=IntToStr(balls);
repeat
if userans=corranswer then
balls:=balls+1
else balls:=balls;
lim:=lim+1;
until lim=limit;
if lim=limit then
begin
Form4.Hide;
Form3.Show;
end
else ds2.Next;
end;

end.

выложил скрин как выглядит форма тестирующей части в пустую строку вводится номер варианта ответа.

когда нажимаю кнопку "Вопрос отвечен" сразу переходит на другую форму где выводятся результаты тестирования. Хотя планировалось что при нажатии кнопки он должен вывести следующий вопрос по списку который представлен на скрине в виде таблице, а после последнего вопроса уже должен переходить на другую форму с результатами.

Подскажите пожалуйсто может гдето ошибся или что то не дописал? :confused: