Remover apostrofo de uma string

[laine]

olá pessoal novamente estou precisando de ajuda eu tenho um banco em firebird e ao confirmar um pedido eu preciso dar um insert no banco ate ai normal, o problema acontece quando em um campo string o usuario informou um apostrofo junto por exemplo d'agua , pois o insert reconhece como se eu estivesse fechado, e gera um erro por isso eu preciso remover o apostrofo para poder gerar o registro.

[Jhonas]

o problema acontece quando em um campo string o usuario informou um apostrofo junto por exemplo d'agua , pois o insert reconhece como se eu estivesse fechado, e gera um erro por isso eu preciso remover o apostrofo para poder gerar o registro.

laine ... coloque o erro extamente como ele aparece na sua tela .. fica mais facil te ajudar

de qualquer modo seria isto:

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
   s := edit1.text;   // d'agua
   if pos('''',s) > 0 then
      delete(s,pos('''',s),1);
   Edit2.Text := s;
end;

abraço