Fazendo um Sistema de LOGIN

Então é o seguinte :

Primeiro vc cria o 'form' com os campos (edits) login e senha e um botao :P ;
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
nome da query.Close;
nome da query.ParamByName('LOGIN').AsString := login;
nome da query.ParamByName('SENHA').AsString := senha;
nome da query.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"