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".