(Delphi) Удалить знаки препинания

[v.v.veter]

Суть такова, есть файл со знаком.txt, Нужно создать новый файл без знаков.txt в определенном месте, в котором будет текст из со знаком.txt но без знаков препинания ( , ) ( . )( ; )( : )( ? )( ! ).
Дайте пожалуйста пример,ссылку если находили такое уже или чем хоть реализовать.

Язык написания Delphi
Заранее спасибо.

[Sparkman]

procedure without(filename1,filename2:string);
var f1,f2:TextFile;
    s:string;
    i:integer;
begin
     AssignFile(f1,filename1);
     AssignFile(f2,filename2);
     Reset(f1);
     Rewrite(f2);
     while not eof(f1) do
     begin
          Readln(f1,s);
          s:=StringReplace(s,',','',[rfReplaceAll]);
          s:=StringReplace(s,'.','',[rfReplaceAll]);
          s:=StringReplace(s,';','',[rfReplaceAll]);
          s:=StringReplace(s,':','',[rfReplaceAll]);
          s:=StringReplace(s,'?','',[rfReplaceAll]);
          s:=StringReplace(s,'!','',[rfReplaceAll]);
          Writeln(f2,s);
     end;
     CloseFile(f1);
     CloseFile(f2);
end;