Trim(X : String) : String
Удалить пробелы в начале и в конце строки
Функция Trim удаляет пробелы в начале и в конце строки.
Procedure OnCreate;
Var
A, B : String;
Begin
A := ' Пример программы ';
B := Trim(A);
Warning('['+B+']'); // [Пример программы]
End;
Смотри функции TrimLeft и TrimRight.