devo fare un'insert into in un database access.
fin qui tutto bene.
devo però escudere il carattere ' perchè altrimenti nulla funziona

allora ho ativato l'evnto onkeypress ed inserito la seguente if..

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: word;
Shift: TShiftState);
begin
if key=xx then
begin
MessageDlg('carattere non consentito SI PREGA DI CANCELLARLO', mtInformation, [mbOK],0);
end;
end;


le xx sono il carattere ascii per la ' a me risulta che sia 39 ma nulla da fare,
voi sapete venirmi in aiuto????????