Código Delphi [-] Edit1.Text := StringReplace(Edit1.Text, '''', '', [rfReplaceAll]);
Edit1.Text := StringReplace(Edit1.Text, '''', '', [rfReplaceAll]);