[Geta]

Busca la posicion de Kgr y la eliminamos gracias a su posición, de esta forma...

Código Delphi [-]
var
Cadena: String;
 
begin
//Buscamos el elemento del string donde empieza Kgr y lo eliminamos junto con el espacio anterior.
 
Delete(Cadena,AnsiPos(Cadena,'Kgr')-1,4);
 
end;