Código:
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
Código:
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