Реализация регистрации

[Userkeys]

Привет всем. Нужна небольшая помощь с регистрацией и входом.
И так, у меня проблема заключается в:
1. На форме регистрации есть Edit поля(2 поля - логин и пароль) и кнопка самой регистрации. У меня цель сделать так, чтобы при нажатии на "Регистрация" данные, которые вводились сохранялись в БД access. Я уже дописывал в конце строку

if DataModule.ADOTable1.Modified then DataModule.ADOTable1.Insert

или же

DataModule.ADOTable1.Post

но данные не сохраняются в таблицу почему-то.
В модуле у меня есть такое: ADOconnection1, DataSource1, ADOTable1, ADOQuery1.
Вот код регистрации моей:

var
bLogged: boolean;
value :integer;
begin
with TADODataSet.Create(nil) do
    try
      Connection := DataModule3.ADOConnection1;
      CommandText := 'Select * from LoginAndPass where Login=:pLogin';
      Parameters.ParamByName('pLogin').Value := sedit1.Text;
      try
        Open;
        bLogged := (RecordCount>0);
        Close;
      except
      end;
    finally
      Free;
    end;
      begin
      if (sEdit2.Text<>sEdit6.Text) then
        value := MessageBox(0, 'Пароли не совпадают', 'Уведомление', MB_ICONERROR)
        else
        if bLogged then
           value := MessageBox(0, 'Такой логин уже существует', 'Уведомление', MB_ICONERROR)
 else
        value := MessageBox(0, 'Регистрация завершена. Авторизуйтесь!', 'Уведомление', MB_ICONASTERISK);

[eval]

чтобы данные уходили в базу их надо туда пихать, у вас этого нет, чего ж вы хотите?

[Stilet]

Предлагаю данные вносит следующим запросом:

With ADOQuery1 do begin
 sql.text:='insert into LoginAndPass (login,pass) values (:l,:p)';
 Parameters.ParamByName('l').AsString:=sedit1.Text;
 Parameters.ParamByName('p').AsString:=sedit2.Text;
 ExecSQL;
end;

[Userkeys]

Ваш код мне ввести после строк ? Завтра попробую

 value := MessageBox(0, 'Регистрация завершена. Авторизуйтесь!', 'Уведомление', MB_ICONASTERISK);

eval, почитайте мою тему сначала. Я удалил код в конце, т.к. не работало

[Stilet]

Ваш код мне ввести после строк ?

Видимо да. Там где у тебя уже есть что вносить в базу. И это только пример. Я ведь не знаю что и как у тебя подключено.

[Userkeys]

Не работает. Можешь в скайпе помочь тогда? Или другой человек? Проект не могу выслать, т.к. компонентов много и у вас ошибки будут

[Userkeys]

Всё сделал

[Stilet]

Можешь в скайпе помочь тогда?

Не использую такое.

Всё сделал

Младец )