Var
I:Integer;
S:string;
Begin
i:=pos('Nickname',S);
if i<>0 do
Begin
S:=copy(S,i,Length(S));
i:=pos('flvl',S);
S:=copy(S,i,Length(S));
i:=pos('</div>',S);
S:=copy(S,7,i-7);
End;
End;
Как вариант можно сделать так. Прошу ногами сильно не пинать, какая первая мысль по поводу прасинга в голову пришла, так и сделал =)
Изначально в переменной S должен быть весь код страницы, после выполнения этого куска, там останится лишь Ник.
Пример рабочй проверял. Работать будет до тех пор пока не изменят структуру сайта. Ну или у человека не будетв нике "</div>" =))