Угрохать точки, зяпятые и восклицания, при разделении строки

[HellMercenariess]

Помогите пожалуйста усовершенствовать этот способ разделения строки на слова так чтобы убирались знаки препинания и при этом слова не слипались:

type
   TData = Array of String;
   const obzon = '!,.-_';

function Split(S : String; C :Char): TData;

implementation

function Split(S : String; C :Char): TData;
var
   Data : TData;

   procedure DelC(var S : String);
   var
     i : Integer;
   begin
     i:=0;
   if Pos(obzon, S)=Length(s) then
     Delete(S,1,Length(s));


     while (Length(s) > 0) and (S[i+1]=C) do
       Inc(i);
     Delete(S, 1, i);
   end;

   procedure Splitting(S : String);
   var
     w : String;
     i : Integer;
     k : Integer;
   begin
     if Length(s) < 1 then
       Exit;
     if S[1] = C then
       DelC(S)
     else
     begin
       w:=''; i:=1;
       while ( s[i] <> C ) and ( i <= Length(S) ) do begin
         w:=w+S[i];
         Inc(i);
       end;
       Delete(S, 1, Length(w));
       k:=Length(Data);
       SetLength(Data,k+1);
       Data[k]:=w;
     end;
     Splitting(S);
   end;

begin
   Splitting(S);
   Result:=Data;
end;

Эта функция чужая, я ею давно уже пользуюсь, единвстенный её бок выдает слова со З\П.

[Аватар]

Я плакаль

function Splitting(S: String): String;
const obzon = '!,.-_';
var i: Integer;
begin
  Result:=s;
  for i:=1 to Length(obzon) do Result:=StringReplace(Result,obzon[i],' ',[rfReplaceAll]);
  while Pos('  ',Result)>0 do Result:=StringReplace(Result,'  ',' ',[rfReplaceAll]);
end;