Как убрать пробел вокруг символа?

Скажем, у меня есть следующая строка:

s := 'This , is,       the Delphi  ,    World!';

Мне нужен следующий результат:

Result := 'This,is,the Delphi,World!';

В основном мне нужна подпрограмма, которая удаляет ВСЕ пробелов. ТОЛЬКО , если они появляются до или после символа запятой (который является моим разделителем), оставляя неповрежденные пробелы между другими словами.

Любая помощь приветствуется.

Что вы думаете об этом решении?

function RemoveSpacesAroundDelimiter(var aString: string; aDelimiter:
    string): string;
begin
  while AnsiContainsText(aString, aDelimiter + ' ') do
    begin
    aString := StringReplace(aString, ', ', aDelimiter, [rfReplaceAll, rfIgnoreCase]);
    end;

  while AnsiContainsText(aString, ' ' + aDelimiter) do
    begin
    aString := StringReplace(aString, ' ' + aDelimiter, aDelimiter, [rfReplaceAll, rfIgnoreCase]);
    end;

  Result := aString;
end;

спасибо

fabio