error al llamar a una funcion del datamodule

[Lettar]

hola, necesito hacer una validacion simple de usuario y contraseña y para eso cree una funcion en el datamodule y ocupe un query para revisar si existia un usuario con ese nombre y contraseña

function TDataModule3.VerificarInicioSesion(Usuario, contraseña: string):boolean;
Var
Vusuario,Vpassword:string;
begin
//Verificacion de usuario
Vusuario:=#39+usuario+#39;
Vpassword:=#39+contraseña+#39;
 Qingreso.close;
 Qingreso.SQL.Clear;
 with Qingreso do
 begin
   SQL.add('select usuario,contraseña');
   SQL.add('from usuario');
   SQL.add('where usuario = :usuario');
   SQL.add('and contraseña = :contraseña');
   prepare;
   parambyname('usuario').AsString:= VUsuario;
   parambyname('contraseña').AsString:= Vpassword;
   open;
 end;
  result :=Qingreso.IsEmpty;

end;

y luego la llame de la unidad1 verificando si los edits no estaban vacios

//Confirmar que estén los campos llenos
if (Eusuarioingr.text <>'') and (contraseñaedit.Text <> '') then
 begin
   //revisar si existe el usuario
   if unit3.DataModule3.VerificarInicioSesion(Eusuarioingr.Text,contraseñaedit.Text)  then
  begin
     LIS.Visible:=false;

  end;
 end;

pero al ejecutarlo me sale 'access violation at address 00d84af5 in module proyect1.exe ' el error ocurre cuando llamo a la función, ni siquiera entra a ejecutarla alguien me dice como puedo solucionarlo o ideas sobre lo que estoy haciendo mal?