[PanAm]

я наверно так написал бы
как пример работы со строками, в работе не проверялся

//Анализ HTML кода
procedure HTMLParsing(S : string);
var
  p : integer;     //позиция в тексте
  code : string;
begin
  p := Pos('bypass -h ', S);     //находим
  while p > 0 do begin         //а вдруг не нашли
    code := copy(S, p+10, 16);   //в Code копируем кусок из 16 символов,
                                 //пропуская 'bypass -h '
    /////////////////////////////////////////////////
    // ....  тут ваш код для обработки строки code
    /////////////////////////////////////////////////
    Delete(S, 1, p+26);          //удаляем обработанный кусок строки
    p := Pos('bypass -h ', S);   //ищем дальше
  end;             //кстати тут точка с запятой не нужна, 
                     //но форум тогда не подсвечивает end
end;

Var
  HTML : String;

begin
  if FromServer and (pck[1]=#$19) then begin
    HTML := ReadS(6); //Считываем текст диалога
    HTMLParsing(HTML) //и передаем на анализ
  end;           //и тут ; не надо ))))
end.