[dec]

Hola,

Código Delphi [-]
var
  entrada, salida: string;
const
  flags = [rfReplaceAll, rfIgnoreCase];
begin
   entrada := '155,45 Kgr';

   salida := StringReplace(entrada, ' Kgr', '', flags);

   ShowMessage(salida);
end;

Esa podría ser una forma de lograr lo que dices, utilizando la función "StringReplace" de la unidad "SysUtils".