Cadenas: eliminar espacios del final solamente

[ecfisa]

Hola Ruben_21.

function SacarSpcFinal(Cad: string):string;
var
  i: Byte;
begin
  i:= Length(Cad);
  while Cad[i] = ' ' do
  begin
    Delete(Cad,i,1);
    Dec(i);
  end;
  Result:= Cad;
end;

Saludos.