Delphi&Access&logs

[ДианаKS]

Добрый вечер у меня есть программка
Есть форма авторизации, есть кнопка войти, при нажатии кнопки нужно независимости удачно или не удачно вход чтобы это все создавалось и записывалось в блокнот для каждого пользователя свой блокнот т.е. чтобы имя блокнота соответствывало именни пользователя.
Листинг кнопки войти предоставляю ниже

procedure TForm16.BitBtn1Click(Sender: TObject);
var a,b:string; i:integer;
 begin
 AdoTable1.First;
 for i:=0 to ADOTable1.RecordCount-1 do
 begin
 if (Edit1.Text =ADOTable1.Fields[1].Asstring) and (Edit2.Text =ADOTable1.Fields[2].Asstring) then
 begin
 Label5.Caption:='Успех';
 ShowMessage ('Авторизация прошла успешно!');
 Form3.Show ;
 exit
 
 end
 else
 if ADOTable1.RecNo= ADOTable1.RecordCount-1 then
begin
label5.Caption:='Не удача';
 ShowMessage ('Не правельный логин или пароль. Если Вы забыли пароль воспользуйтесь кнопкой "Забыли пароль"');
 exit;
 end
 else
 AdoTable1.Next;
 end;
 end;