[sweet_lana]

вот есть у меня процедура на добавление записи, как и куда что писать?
перед запросом? или нужно ранее где то сам алгоритм шифрования записать в делфи, а потом его вызывать на выполнение?

Код:

procedure Taddtovar.Button1Click(Sender: TObject);
var query1:string;
    idb:Integer;

begin
if (addtovar.Edit1.Text='') or (addtovar.Edit2.Text='') then
  MessageDLG('Заполните все поля',mtError,[mbOk],0)
else
  begin
    idb:=idtovar+1;
    addtovar.Edit4.Text:=IntToStr(idb);
//создание новой записи в таблице и добавление данных в строку

     query1:='INSERT INTO Справочник_товаров VALUES('''+Edit4.Text+''','''+edit1.Text+''','''+edit2.Text+''',0);';//**Запрос для добавления записи
     tovar.ADOQuery1.SQL.Clear;//**Очистка предыдущего запроса.
     tovar.ADOQuery1.SQL.Text:=query1;//**Заносим запрос
     tovar.ADOQuery1.ExecSQL;//**Выполнения запроса
     //**Отображения содержимого базы
     tovar.ADOQuery1.Active:=false;
     tovar.ADOQuery1.SQL.Clear;
     tovar.ADOQuery1.SQL.Add('SELECT * FROM Справочник_товаров');
     tovar.ADOQuery1.Active:=true;
     //перед закрытием окна очищаем поля для ввода
      edit1.Text:='';
      edit2.Text:='';
      close
  end;
end;