Código Delphi
[-] s := edit1.Text;
Delete(s,pos('!',s),pos(':',s)-5);
label1.Caption := s;
En Edit1 puse el texto que decías y con este código funciona bien.
"s" es una variable de tipo string;
__________________
"Sé de tal manera y vive una vida tal, que si todos los hombres fueran como tú y vivieran como tú, nuestro mundo sería un paraíso terrenal"
Siempre hazlo con la ayuda de Dios