Доработка кода авторизации

[Fastah]

Помогите доработать, не могу разобраться почему не работает должным образом.

В общем должно работать так: если в edit1(логин) или edit2(пароль) пусто то ошибка, если поля заполнены, то идёт проверка на совпадение логина, если такой логин есть, то ошибка, если нет, то регистрация.

begin
if (Length(Edit1.text)=0) or (Length(Edit2.text)=0) then
showmessage('Ошибка: Ввод пустых строк запрещен!')
else 
if (Length(Edit1.text)>0) and (Length(Edit2.text)>0) then
begin
datamodule2.Adotable1.Filtered:= false;;
datamodule2.Adotable1.Filter:='[Name] LIKE '+#39+'%'+Edit1.Text+'%'+ #39;
datamodule2.Adotable1.Filtered:= true;
showmessage('Ошибка: Пользователь уже существует!');
end
else
begin
datamodule2.Adotable1.Open;
datamodule2.Adotable1.Insert;
datamodule2.Adotable1.FieldByName('Name').AsString:= Edit1.Text;
datamodule2.Adotable1.FieldByName('Password').AsString:= Edit2.Text;
datamodule2.Adotable1.Post;
datamodule2.Adotable1.Close;
datamodule2.Adotable1.Open;
datamodule2.Adotable1.FindLast;
showmessage('Новый пользователь зарегистрирован');

не работает поиск, каждый раз если поля не пустые программа говорит на любое имя что оно существует

[Fastah]

Проблема решена

if (Edit1.text='')or(edit2.text='')then
begin
showmessage('Ошибка: Ввод пустых строк запрещен!');
exit;
end
else
if (Length(Edit1.text)>0) and (Length(Edit2.text)>0) then
begin
if datamodule2.Adotable1.Locate('Name',Edit1.Text,[]) then
begin
ShowMessage('Ошибка: Пользователь уже существует!');
exit;
end
else
datamodule2.Adotable1.Open;
datamodule2.Adotable1.Insert;
datamodule2.Adotable1.FieldByName('Name').AsString:= Edit1.Text;
datamodule2.Adotable1.FieldByName('Password').AsString:= Edit2.Text;
datamodule2.Adotable1.Post;
datamodule2.Adotable1.Close;
datamodule2.Adotable1.Open;
datamodule2.Adotable1.FindLast;
showmessage('Новый пользователь зарегистрирован');