Hola.
Para que el hilo no le resulte estéril a los posibles usuarios interesados, una forma puede ser:
Código Delphi
[-]
function ExtraerPalabra(Frase, Palabra: string): string;
begin
Delete(Frase,Pos(Palabra,Frase),Length(Palabra));
Result:= Frase;
end;
Llamada:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:= ExtraerPalabra('hola test mundo', 'test');
end;
Saludos.