[The Shadow]

Вот код для удаления первых и последних пробелов:

Код:

function DeleteSpaces(S: String): String;
begin
Result:=S;
while Result[1] = ' ' do
Delete(Result, 1, 1);
while Result[Length(Result)] = ' ' do
Delete(Result, Length(Result), 1);
end;