Muy bien, solo hay que modificar algo en tu función
Delete()
Código Delphi
[-]
Delete(s,pos('!',s)+1,pos(':',s)-6);
De otra forma quedaria NICK:mensaje y se requiere NICK!:mensaje
Ahora la parte inversa, agregar el correo entre NICK! y :mensaje
Código Delphi
[-]
correo := 'datosaleatorios@masdatos';
s := Label1.Caption;
insert(correo,s,6);
Label1.Caption := s;
PD: Sigo pensando que es mas fácil tener 'NICK!' y ':mensaje' como constantes.
Salud OS.