Обновление БД посл запроса добавления

[Stilet]

А я и не заметил, что там старый запрос остается )))
Забавно, как это у него СУБД не ругнулось на комбинацию инсерта и селекта ))))

[xxbesoxx]

Как то так

//клик по кнопке зарегистрировать
procedure TForm1.Button2Click(Sender: TObject);
begin
  With ADOQuery1 do
   begin
    SQL.Clear;
    SQL.Add('insert into Users (Nam, Family)');
    SQL.Add( ' VALUES(:prm1,:prm2)');
    Parameters.ParamByName('prm1').Value:= Trim(Edit1.Text);
    Parameters.ParamByName('prm2').Value:= Trim(Edit2.Text);
    try
        ExecSql;
        showmessage('Пользователь зарегистрирован!');
    Except
      showmessage('Не удалось зарегистрировать пользователя!');
    end;
   // или можно для этого SELECT  объявит процедура и вызвать потом из другом месте если надо  
  ADOQuery1.SQL.Text := 'SELECT * FROM Users';
  ADOQuery1.Open;
end;