[dyh9l]

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

Вероятно

s := copy(s,11,5);

т.е. получить текст, начиная с 11 позиции в строке s (после There are) длиной 5 символов (а сколько максимум очков могут дать? если больше 99999, то надо поставить 6 или более).

s := Copy(s, 1, Pos(' ', s) - 1);

а тут получаем из строки типа 18 Grand только число 18 (т.е. подстроку до первого пробела)
Ну и в итоге:

Edit1.Text := s;

звучит убеждающий) надо раз 15-20 перечитать чтоб понять тока )