Авторизация в delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM logins WHERE login ='+form1.Edit1.Text+' and pswd ='+form1.Edit2.Text+'');
  ADOQuery1.Open;
  if ADOQuery1.IsEmpty
    then
   ShowMessage('НЕ вошел')
   else
   ShowMessage('Вход выполнен');
      end;

ADOQuery1.SQL.text:='SELECT * FROM logins WHERE login ='''+Edit1.Text+''' and pswd ='''+Edit2.Text+'''');
ADOQuery1.Open;
if (ADOQuery1.EOF) then
  showMessage('облом');
ADOQuery1.Close;

query.sql.text:='select F1 from table1 where f2=15';
query.open;
s:=query.FieldByName('f1').asString;

if s='моя строка' then
  showMessage('message 1)
  else if ....

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM logins WHERE login ='+form1.Edit1.Text+' and pswd ='+form1.Edit2.Text+'');
  ADOQuery1.Open;
  if ADOQuery1.IsEmpty
    then
   ShowMessage('ÍÅ âîøåë')
   else
   begin
   if
   adoquery1.FieldByName('type').AsString='admin'
   then
   ShowMessage('Âû âîøëè êàê àäìèí')
    else
      begin
   if
   adoquery1.FieldByName('type').AsString='user'
   then
   ShowMessage('Âû âîøëè êàê user')
   else
   begin
   if
   adoquery1.FieldByName('type').AsString='unknow'
   then
   ShowMessage('Âû âîøëè êàê unknow')
   else
     ShowMessage('Âû íå îïðåäåëåííûé ïîüçîâàòåëü')
      end;
       end;
 end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
  ADOQuery1.SQL.text:='SELECT type FROM logins WHERE login ='''+Edit1.Text+''' and pswd ='''+Edit2.Text+'''';
  ADOQuery1.Open;
  if ADOQuery1.eof then
    ShowMessage('НЕ вошел')
  else
  begin
    s:=adoQuery1.FieldByName('type').asString;
    if s='admin' then
      ShowMessage('Вы админ')
    else if s='user' then
      ShowMessage('пользователь')
    else if s='unknow' then
      ShowMessage('неизвестен')
    else
      showMessage('вообще нет такого значения');
  end;
  adoquery1.close;
 end;