Without SQL Injection

Without.SQL.Injection.pas

begin
  qryUsuarios.SQL.Clear;
  qryUsuarios.SQL.Add('select *');
  qryUsuarios.SQL.Add('  from user');
  qryUsuarios.SQL.Add(' where login = :login');
  qryUsuarios.SQL.Add('   and password = :senha');
  qryUsuarios.ParamByName('login').AsString := edtUsuario.Text;
  qryUsuarios.ParamByName('senha').AsString := edtSenha.Text;
  qryUsuarios.Open();
  if qryUsuarios.IsEmpty then
    lblResultado.Caption := 'ERRO!!!'
  else
    lblResultado.Caption := 'Ok';
end;