Получение данных по id пользователя SQLite

unit enter;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SQLite3, SQLiteTable3;
 
type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
  sldb:TSQLiteDatabase;
 
implementation
 
{$R *.dfm}
 
procedure TForm3.FormShow(Sender: TObject);
begin
sldb := TSQLiteDatabase.Create('frigat.db');
end;
 
procedure TForm3.Button1Click(Sender: TObject);
var sltb:TSQLiteTable;
begin
sltb := sldb.GetTable('select user_name, user_pass from accaunt where user_name="'+Edit1.Text+'" and user_pass="'+Edit2.Text+'"');
ShowMessage('Name='+sltb.FieldAsString(0)+' Password='+sltb.FieldAsString(1));
end;
 
end.

procedure TForm1.CheckLogin;
var
  f:TForm3;
  r:TModalResult;
  sltb:TSQLiteTable;
  id:Integer;
begin
  f:=TForm3.Create(NIL);
  try
    repeat
      r:=f.ShowModal;
      if r=mrOk then
      begin
        // придумаем функцию LoginCorrect() которая возвращает нам True или False
        // откуда она берет эти данные, из базы или файла или придумывает сама, нам все равно
 
 
        if LoginCorrect(f.Edit1.text, f.Edit2.text) then
          ShowMessage('Заполните поля логин и пароль')
        else
        begin
          sltb := sldb.GetTable('select id, user_name, user_pass from accaunt where user_name="'+f.Edit1.text+'" and user_pass="'+f.Edit2.text+'"');
          ShowMessage('Name='+sltb.FieldAsString(1)+' Password='+sltb.FieldAsString(2));
          id := sltb.FieldAsInteger(0);
          //Проверка на существование пользователя
        //  if(...)
        //  begin
         //    LoadData(id);
        //  end;
        end;
      end;
    until r=mrCancel;
    if r=mrCancel then
    begin
      ShowMessage('Отказ от авторизации. Программа завершает свою работу.');
      Application.Terminate();
      Abort;
    end;
  finally
    f.free;
  end;
end;

function TDatamodule1.LoginCorrect(login,pass:string):boolean;
begin
  query1.Sql.text := 'select id from accaunt where user_name=:user_name and user_pass=:user_pass';
  query1.Parameters.ParamByName('user_name').value := login;
  query1.Parameters.ParamByName('user_pass').value := pass;
  query1.open;
  result := not query1.eof;
  if result then
  begin
    Settings.UserId := query1.FieldByName('id').asinteger; 
    Settings.UserName := login;
    Settings.UserPass := pass;
  end;
  Query1.Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
CheckLogin;
end;

procedure TForm1.CheckLogin;
var
  f:TForm3;
  r:TModalResult;
  id:Integer;
begin
  f:=TForm3.Create(NIL);
  try
    repeat
      r:=f.ShowModal;
      if r=mrOk then
      begin
        // придумаем функцию LoginCorrect() которая возвращает нам True или False
        // откуда она берет эти данные, из базы или файла или придумывает сама, нам все равно
        if LoginCorrect(f.Edit1.text, f.Edit2.text) then
        begin
          ...
 
        end
        else
          ShowMessage('Неверный логин и пароль');
      end;
    until r=mrCancel;
    if r=mrCancel then
    begin
      ShowMessage('Отказ от авторизации. Программа завершает свою работу.');
      //f.Hide;
      //Application.Terminate();
      //Abort;
    end;
  finally
    f.free;
  end;
end;
 
function TForm1.LoginCorrect(login, pass: String): Boolean;
var sltb:TSQLiteTable;
begin
sltb := sldb.GetTable('select id, user_name, user_pass from accaunt where user_name="'+login+'" and user_pass="'+pass+'"');
result := not sltb.EOF;
if result then
  begin
    Form3.Close;
  end;
  sltb.Free;
end;

f:=TForm3.Create(NIL);

finally
    f.free;
end;

if r=mrOk then
      begin
        if LoginCorrect(f.Edit1.text, f.Edit2.text) then
        begin
           login:=f.Edit1.Text;
           password:=f.Edit2.Text;
           break;
        end
        else
          ShowMessage('Неверный логин пароль');