[RangerX]

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

хм ну первую звездочку я понимаю что s:=ReadS(6); а другие две?

Вероятно

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;