Login e Senha

Boa tarde.


Nos meus sistemas coloco dois Edit.
No evento OnClick do botao aceitar coloco a query +- assim.

with query1 do
begin
Close;
SQL.Clear;
SQL.Add(´SELECT CodUsuario´);
SQL.Add(´WHERE Usuario = :Usuario´);
SQL.Add(´AND Senha = :Senha´);
ParamByName(´Usuario´).Value := edit1.Text;
ParamByName(´Senha´).Value := edit2.Text;
Open;
if RecordCount > 0 then
begin
// encontrou 1 usuario, comandos de abertura do seu sistema
end else begin
// nao encontrou ninguem.
end;
end;