[angvelem]

Уверен, что

Код:

  a := Socket.ReceiveText;

возвращает только то, что проверяется? Может использовать Pos для проверки.

Код:

  lP:=TStringList.Create;
  lP.Clear;

после создания, lP уже пуст и очищать нет нужды. Также нужно не забывать освобожать, когда он больше не требуется.