procedure TForm1.DBEdit2KeyPress(Sender: TObject; var Key: Char); begin if (Sender is TdbEdit) and (key ='A') then begin ShowMessage('Ni te menees'); Key:=#0; end; end;