Модуль: SysUtils

Описание
Функция удаляет пробелы и управляющие символы, стоящие в конце строки S.

Пример
var
   S: string;
   L: Integer;
begin
   S:= #13' УРА! '#13;
   L:= length( S);      // L := 10
   S:= TrimRight( S);     // S := #13' УРА!'
   L:= L-length( S);      // L := 2
   MessageDlg( 'Удалено символов - '+IntToStr(L), mtInformation, [mbOk], 0);
end;