Criar uma tela de login

Colocar num botão


begin
if (edtLogin.text <> '') AND (edtSenha.text <> '') then
begin
dm.Connection.connected := true;
dm.Q_login.active := true;
dm.Q_login.close;
dm.Q_login.sql.clear;
dm.Q_login.sql.Add('select * from Cad_Templo where CODIGO = :login and CPF = :senha');
dm.Q_login.ParamByName('Login').Asstring := edtLogin.Text;
dm.Q_login.ParamByName('Senha').Asstring := edtSenha.Text;
dm.Q_login.Open;
if dm.Q_login.isEmpty then
begin
ShowMessage('A senha está incorreta!');
edtSenha.Text := '';
edtSenha.SetFocus;
end
else
begin
TabControl1.ActiveTab:= TabItem2;
end;
end;
end;