Delphi 7 - Cümleden Özel(Türkçe) Karakterleri Silme

Özel karakterlerin(sesli harfler,noktalama işaretleri gibi) cümle içinden silinmesi için küçük bir kod.



function str_replace(Text:string):String;
const
  Sesliler = 'iüçşğöİÜÇŞĞÖİ';
var
  txt : String;
  Charr: Char;
  index : Integer;
begin
  Result := Text;
  For Index := 1 to Length(Text) Do
    begin
      Charr := Text[Index];
      if (Pos(Charr,Sesliler) > 0)  then
        Result := StringReplace(Trim(Result),Charr,'',[rfReplaceAll]);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(Str_replace(edit1.Text));
end;