Sockets-Reconocer una cadena de texto.

[Descendents]

var
s:string;
begin
  s:= 'MENSAJE hola como estas?'
  If pos ('MENSAJE',s) <> 0 then 
  Delete(s,1,7);

s = hola como estas?



if pos -->> busca el primer parametro dentro del segundo.
Es decir Si 'MENSAJE' esta dentro de S.

I el delete -->> te borra del primer parametro(es decir S) desde el segundo paramentro(Es decir 1) hasta el tercer parametro (es decir 7).

O sea te borra de toda el string de 1 al 7 caracteres.

I por cierto ahora que lo pienso,tambien puedes utilizar leftstr();


Ejemplo

var
s,r:string;
begin
  s:= 'MENSAJE hola como estas?'
  r := (LeftStr(s,7));
  if r = 'MENSAJE'  then   Delete(s,1,7);
end;

s = hola como estas?

Leftstr -->>Se recorre el string empezando por la izquierda, hasta el caracter que tu le indicas