Fazendo um Sistema de LOGIN

É facil. É o seguinte :

Primeiro vc cria o 'form' com os campos (edits) login e senha e um botao;
No click desse botao vc vai chamar uma funcão;
Vc vai criar uma query passando como parametro o login e senha ;
Depois da validacão, chama o que vc quiser;


function ValidaUser(login, senha : string) : boolean ;
Begin
.Close;
.ParamByName('LOGIN').AsString := login;
.ParamByName('SENHA').AsString := senha;
.Open;
if .recordCount<>0 then
Result := True;
end;

// No click do botao chama a funcao

if ValidaUser(.text,.text) then
"acao desejada";

Se não souber o SQL da query, la vai o codigo :

"Select * From Where nome= :LOGIN and senha= :SENHA"