Я просто, можно сказать второй день в своей жизни имею дело с Delphi
Поэтому, что мог, подчеркнул от туда...
Чисто интуитивно думаю надо ввести еще какую то переменную, но в связи с тем, что я очень плохо разбираюсь в програмировании додумать что и куда у меня не получится ((