Ввод логина и пароля при запуске программы

Form2:= TForm2.Create(Application);
  if Form2.ShowModal = mrOk then begin
   lg:=edit1.Text;
psw:=idEncoderXXE1.Encode(edit2.text);
s:=('select * from admin where login ='+WideChar($0027)+lg+WideChar($0027)+'and pasword='+WideChar($0027)+psw+WideChar($0027)+';');
ADOQuery1.Active :=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(s);
ADOQuery1.ExecSQL;
ADOQuery1.Open;
   if ADOQuery1.Recordset.RecordCount=0 then  showMessage('Неверный логин или пароль')
    else begin  ModalResult := mrOK;
    Form2.Hide;
    Form2.Free; end;
   end
  else
    Application.Terminate
end;

loginForm:=TLoginForm.Create(nil);
res:=mrCancel;
logged:=false;
try
repeat
  res:=loginForm.ShowModal;
  if res = mrOK then
  begin
    log:=loginForm.eLogin;
    pass:=loginForm.ePass;
    logged := LoginCorrect(log, pass);
  end;
until (res<>mrOk)or(logged);
if res<>mrOk then
    application.terminate
else
if not logged then
begin
  showMessage('пароль не опознан');
  application.terminate;
end; 
finally
  loginForm.free;
end;

function TForm1.LoginCorrect(log, pass:string):boolean;
var s,psw:string;
begin
  ADOQuery1.close;
  psw:=idEncoderXXE1.Encode(pass);
  s:=('select count(*) as C from admin where login ='''+lg+''' and pasword='''+psw+'''');
  ADOQuery1.SQL.Text:=s;
  ADOQuery1.Open;
  result := ADOQuery1.FieldByName('C').asinteger<>0;
  ADOQuery1.Close;
end;