Sería bueno que indicaras en qué linea te da el error. Así lo único que se me ocurre es que al activar el query:
Código Delphi
[-]
QryEntrar.Active:= True;
EUsuario.Text:= QryEntrar.Fields[0].AsString;
quizá no estés obteniendo ningún registro, por lo que Fields estará vacío. Checa la propiedad QryEntrar.IsEmpty o QryEntrar.RecordCount para asegurarte que la consulta te está devolviendo registros.
// Saludos